Laufzeitfehler 9

Sub Riinforsd_pläi()
'Dateiname_ausgeben()'
Meine_Datei = InputBox("Bitte geben sie den Dateinamen (ohne Endung) der zu verarbeitenden Excel
Datei an. Sie muss bereits geöffnet sein.", "Dateieingabe")
Meine_Datei = Meine_Datei & ".xls"
MsgBox Meine_Datei, , "zu verarbeitende Datei:"
'Tabellenblaetter_zählen()'
Windows(Meine_Datei).Activate
Dim i As Integer
Dim max As Integer
max = Worksheets.Count
MsgBox "Anzahl Tabellenblätter:" & max
End Sub