Application Run beendet Makro

Sub MakroTest()
Sheets("STATUS").Select
Sheets("STATUS").Range("N2") = Now
Application.AskToUpdateLinks = False
Workbooks.Open Filename:="Dateipfad\Datei.xlsb"
Application.AskToUpdateLinks = True
Sheets("Tabelle1").Select
Application.Run "'Makro1"
Sheets("STATUS").Select 'ab hier wird der Code ignoriert
Sheets("STATUS").Range("O2") = Now
MsgBox "Die Daten wurden aktualisiert: " & Environ("USERNAME"), vbOKOnly, "Test"
End Sub