PDF öffnen, Dateiname aus Zelle

Hallo Zusammen,

ich muss mich vorab entschuldigen, wenn ich mich umständlich oder falsch ausdrücke. Ich bin absoluter Anfänger was Makro / VBA angeht. 😊
Mit mehr Glück als Verstand, habe ich es hinbekommen, dass meine Rechnungen per Makro / VBA in einem Ordner, auf meinem Server gespeichert werden.
Dateiname setzt sich wie folgt zusammen:
Rechnungsnummer Name, Adresse, Rechnungsdatum.pdf
Informationen bekommt Excel aus der Zelle AO1.
Makro:

Dim sPath As String
Dim PDF_NAME As String

sPath = ThisWorkbook.Path & "\Rechnungen 2023"
If sPath = "" Then
MsgBox "Die Datei muß zuerst gespeichert werden"
Exit Sub
End If

sPath = IIf(Right$(sPath, 1) = Application.PathSeparator, sPath, sPath & Application. _
PathSeparator)

On Error GoTo ENDE:
Application.DisplayAlerts = False

PDF_NAME = sPath & Range("AO1").Value & ".pdf" 'ANPASSEN

If Not PDF_NAME = "Falsch" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_NAME, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If

ENDE:
Application.DisplayAlerts = True

'MsgBox ThisWorkbook.Path & "\Rechnungen 2023"

End Sub