Alternative zu Stop

Hier werden zwei Zeiten miteinander verglichen, eine Zielzeit mit einer laufenden Zeit. In der 3. Zeile findet ein Countdown statt, der bei 0 stoppen soll. Das funktioniert auch, aber der Debugger wird geöffnet. Ich möchte, dass er das nicht tut und habe es anstelle von Stop mit End versucht. Das funktioniert aber nicht, der Countdown läuft weiter.

Sub Weiter()
[a37] = Format([a36] - Time, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "Weiter"
If [a37] = TimeValue("00:00:00") Then Stop
End Sub