On-Time lässt sich nicht stoppen?

Public NextTime As Date

Sub Auto_open()

NextTime = Now + TimeValue("00:03:00")

Sheets("ade_prot").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("ade_wert").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("buch_prot").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("pstamm").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("August").Select
Range("B3").Select
calculate
Worksheets(1).Unprotect password:="mle"
Dim Rng As Range
For Each Rng In Range("d4:d310").Cells
Rows(Rng.Row).Hidden = False
If Rng.Value = 0 Then
Rows(Rng.Row).Hidden = True
End If
Next Rng
Worksheets(1).Protect password:="mle"

Application.OnTime NextTime, "auto_open"

End Sub

Sub Auto_close()
Application.OnTime NextTime, "Auto_open", schedule:=False
End Sub

Das Auto-close Makro läuft nicht.

Wer weis warum???