Mapnaam bij het maken van een PDF bestand

[SeringZH]

Met onderstaande code werkt het, maar hoe voorkom ik nu dat de pdf steeds wordt overschreven/

Sub MaakMap()
 CreateObject("shell.application").Namespace("D:").newfolder "PDF Bestand\" & Range("A1").Value
End Sub

Sub MaakPDF()
     ActiveSheet.ExportAsFixedFormat 0, "D:\PDF Bestand\" & Range("A1").Value & "\" & Range("a3").Value & ".pdf"
End Sub

SeringZH

 

[HSV]

Sub MaakPDF()
     ActiveSheet.ExportAsFixedFormat 0, "D:\PDF Bestand\" & Range("A1").Value & "\" & Range("a3").Value & format(now, "yyyymmdd hmmss") & ".pdf"
End Sub

 

[SeringZH]

Bedankt voor het geduld met een oude man.
Alles werkt nu zoals het moet.
Achteraf vergat ik even dat ik met een test werkte, maar waar ik het voor nodig heeft wordt er een uniek nummer gemaakt bij het sluiten, dus maak ik een verwijzing naar dit nummer.

Nogmaals bedankt,

SeringZH