Datei als PDF in Pfad speichern

Sub ExportAlsPDF2()
Dim sFilename As String, sPathname As String
' >
sPathname = Range("L39")
' Im sPathname steht C:\Büro\2021\
sFilename = Range("L40") & ".pdf"
' ------------------------------------------------------
' sFilename = (L40) aus den Werten von Adressat (C24) & " " & Rechnungsnummer (J23) ->Paul  _
Mustermann 050421/01
' Formular soll jetzt als ->Paul Mustermann 050421/01.PDF im Pfad C:\Büro\2021\ gespeichert  _
werden.
' Beim Starten des Makros kommt Laufzeitfehler 1004. Das Dokument wurde nicht gespeichert.
' Beim debuggen wird der Bereich Active Sheet.Range bis OpenAfterPublish:=True gelb eingefä _
rbt.
' --------------------------------------------------------
ActiveSheet.Range("A1:K76").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sPathname & sFilename, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub