Automatischer Dateiwechsel funktioniert nicht

[Quantum]

Hallo,

ich möchte gerne automatisch von einer Datei zu einer anderen wechseln. Dazu habe ich ein kleines Makro in einer Userform geschrieben.

Code:

Sub CommandButton1_Click()
Unload Me
Application.Workbooks.Open "C:\000 Projekt\01 Learn.xlsm"
Application.Workbooks("01 Learn.xlsm").Sheets("Tabelle1").Range("B1").Select
Application.DisplayAlerts = False
Application.ThisWorkbook.Close SaveChanges:=True
End Sub

 
Das Problem ist, dass ich bei Ausführung des Makros die Fehlermeldung bekomme, "Excel" funktioniert nicht mehr, Anwendung wird geschlossen.
Was habe ich bei meinem Code falsch gemacht?

[UnsUwe]

Hallo,
es könnte sein, dass in deiner "01 Learn.xlsm" ein anderes Blatt aktiv ist, deswegen würde ich deine Zeile

Application.Workbooks("01 Learn.xlsm").Sheets("Tabelle1").Range("B1").Select

aufsplitten in:

Code:

Application.Workbooks("01 Learn.xlsm").Sheets("Tabelle1").Select
Range("B1").Select

Ansonsten sehe ich keinen Fehler, genauso hat es bei mir funktioniert.