nicht genügend stapelspeicher ... wer kann helfen

Private Sub _worksheet-selectionchange routine in der:
die zeit einer datei überprüft wird und sobald sie sich ändert wird startet ein makro.
dies starte ich mit dem befehl
Application.Run "test"
am ende des makros test wird ein parameter gesetzt, der die selectionchange routine wieder aktiviert
das klappt auch ganz gut, nur wenn ich es durchlaufen lasse, bekome ich nach einiger zeit den fehler: "Nicht genügend Stapelspeicher Laufzeitfehler 28"
nachfolgend die beiden makros mit ihren wesentlichen inhalten

Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim zeit1, zeit2 As Date
If Range("C1").Value = 1 Then
Range("C1").Value = 11
Application.EnableEvents = False
zeit1 = .....
zeit2 = ....
Application.Run "test"
End If
End If
End Sub


_________________________________________________________________________

Sub test()

.....

Application.EnableEvents = True

Range("C1").Value = 1 

Range("D16").Select

End Sub