Laufzeitfehler 76 Pfad nicht gefunden

Sub Folgekonto_Basis_öffnen()
Dim pfad As String, wbDatei1 As String ', TPfad1 As String
pfad = Worksheets("Anfang und Enddatum").Range("AN11") & "\" & Worksheets("Anfang und Enddatum") _
.Range("AH2") & "\" '& Worksheets("Anfang und Enddatum").Range("AL2") & "\"
Debug.Print pfad
wbDatei1 = Worksheets("Anfang und Enddatum").Range("AP2")
Debug.Print wbDatei1
Debug.Print pfad & wbDatei1
Workbooks.Open Filename:=pfad & wbDatei1
Call Ordner_Dateien_auflisten
Call Dateien_auflisten
End Sub