Office: VBA Verständnis Problem mit Rücksprung bei Makro öffnen

Hallo!

Ich habe eine Datei, die tägl. zu einer Zeit eine Abfolge von Befehlen ausführt. Bis dahin funktionierte alles wunderbar, bis ich einen neuen Teil eingebaut hatte, welcher eine andere Datei öffnet und das angegebene Makro dort ausführen soll. Soweit hatte auch alles gepasst, nur kam diese Datei danach nie wieder zurück zur ausführenden Datei. Dadurch wiederholt sich der Ablauf am nächsten Tag auch nicht wieder. Das Problem habe ich mittlerweile nach einigen Test erkannt. Ich verstehe aber den Hintergrund bzw. Zusammenhang noch nicht vollständig. Der Grund war, ich habe die Datei2 in Datei1 öffnen lassen am Ende des Makros von Datei2 stand der Befehl datei.close savechanges := True welcher den Rücksprung in die ausführende Datei verhindert hatte.
Mittlerweile öffne und schliesse ich die zweite Datei nur noch im Makro der ersten Datei und alles passt.

Hier der Code der Dateien:

Datei1

Code:

Option Explicit
Public DateinameDaten As String, filedrive As String, Pfad As String, iRow As Long, cFile() As String
Public iTimerSet As Double
Sub auto_open()
Application.OnTime TimeValue("23:00:00"), "Zeitsteuerung", Schedule:=True
End Sub
Private Sub Zeitsteuerung()
Dim geladen As Boolean, wb As Workbook, Datei_oeffnen As Workbook, tzbc As Workbook
Set tzbc = ThisWorkbook

tzbc.Sheets(1).Range("B14") = "Start: " & Date & " " & Time

    Set Datei_oeffnen = Workbooks.Open(Filename:= _
        "t:\Test_call_Makro.xls")
    geladen = False
    Do
      For Each wb In Workbooks
        If wb.Name = "Test_call_Makro.xls" Then geladen = True
      Next wb
    Loop Until geladen = True
    Workbooks.Application.Run "'Test_call_Makro.xls'!Test"
Datei_oeffnen.Close Savechanges:=True

tzbc.Sheets(1).Range("B15") = "Ende: " & Date & " " & Time
tzbc.Save
Stop
Application.OnTime iTimerSet, "auto_open" 'Aufruf Zeitsteuerung (Schleife)
End Sub

Datei2

Code:

Option Explicit

Sub Test()
Dim dashier As Workbook
Set dashier = ThisWorkbook
With dashier.ActiveSheet
.Range("A1").Value = Now
.Range("A2").Value = "erledigt"
End With
'dashier.close Savechanges:=True
End Sub

Vielleicht kann mir jemand den Hintergrund erklären.

Vielen Dank!