Application.Run funktioniert nicht

Sub Makro1()
Pfad = Application.ThisWorkbook.Path & "\"
Ext = "Beispiel 100xz*.xls"
If Pfad = "" Then
Exit Sub
Else
Datei = Dir(Pfad & Ext)
Do While Len(Datei) > 0
Workbooks.Open Filename:= _
Pfad & Datei, _
UpdateLinks:=0
Windows(Datei).Activate
MsgBox Datei   'hier wird der korrekte Dateiname angezeigt
Application.Run ("'Datei'!Leere_Zeilen_ausblenden") 'hier findet er nicht die Datei  _
und führt das Makro somit nicht aus
Workbooks(Datei).Close SaveChanges:=True
Datei = Dir()
Loop
End If
End Sub

Viele Dank im Voraus für Eure Hilfe