Document opslaan met als naam inhoud van cel

[Arnoud76]

Hallo,

Wie kan mij helpen?

Ik heb een macro, die een werkblad moet opslaan als PDF en als naam van de PDF het nummer moet geven wat in Cel I31 staat.

Sub OpslFactuurPDF()
    ActiveSheet.Copy
    ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\MOED\Documents\Boekhouden\" & Range("I31").Value & ".pdf"
End Sub

Als ik de macro uitvoer dan maakt Excel eerst een copy van het bestaande werkblad en geeft dit de naam "Map1".

Is het ook mogelijk dat er alleen een PDF wordt gemaakt zonder een copy met de naam "Map1"?

Groet Arnoud

 

[Thankyou]

Mijn kennis van VBA is zeer gering maar haal het stukje "ActiceSheet.Copy" eens weg
Bij mijn bestanden heb ik hier in iedergeval geen gebruik van gemaakt.

 

[Arnoud76]

Hallo Martin,

Heb de regel verwijderd en dat was inderdaad precies waar ik naar op zoek was.

Erg bedankt!!!

Gr. Arnoud