Probleme mit Makro zum Speichern

Liebe wissende,
ich habe mir mit eurer Hilfe ein Makro zusammengestellt um meine Datei automatisch zu speichern und zu drucken.

Das Makro sieht wie folgt aus:

Private Sub CommandButton3_Click()
'
Sheets("Rechnung").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Altmetall").Select
Range("D11").Select

Dim strFileName As String
strFileName = "C:\MGD Recycling\Rechnungen\" & Range("HT3").Text & "\" & Range("W3").Value & ".pdf"

ThisWorkbook.Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Meldung von Excel:
Laufzeitfehler ‚1004‘
Anwendungs- oder objektdefinierter Fehler

Der Verzeichnispfad ist vorgegeben und die Ordner existieren
C:\MGD Recycling\Rechnungen\Altmetalle\(Unterordner von 2026 bis 2030)

Welche Daten stehen in welchen Zellen?
„HT3“ enthält das heutige Datum =Heute() formatiert als „JJJJ“
„W3“ enthält den Speichernamen unter dem die Datei abgespeichert werden soll. Der Name wird mit der Funktion „Verketten“ in der Zelle „Z153“ erstellt und in „HT3“ übernommen

Was ich gerne möchte:
Zuerst das Tabellenblatt „Rechnung“ zweimal ausdrucken
Die Datei (Tabellenblatt „Rechnung“) anschließend in den Ordner „C:\MGD Recycling\Altmetalle\und den jeweiligen Jahresordner“ speichern.

Soll heißen; Daten aus diesem Jahr in den Ordner 2026, Daten aus dem nächsten Jahr in den Ordner 2027 usw.

Ich hoffe, dass ich mich verständlich genug ausgedrückt habe.

Vielen Dank für eure Hilfe

Hans-Georg