Ich habe eine Datei mit mehren Sheets, bestimmte Sheets (nicht alle) soll ein PDF Dokument erstellt werden und am besten gleich dort abgespeichert werden wo die Excel-Datei liegt.
Und der Name des PDF´s soll dann aus "B2" und "B4" des jeweiligen Sheets ausgelesen werden, Optional aktuelles Datum.

Hier mein Code... der nicht wirklich funktioniert ....
Sub PDFerzeugen()
Dim strName As String
Dim ws As Worksheet

strName = Range("B7")

For Each ws In Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strName & ws.Name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

Next ws
End Sub