On-Time verlassen?

Ich habe folgendes auto_open makro:

Sub Auto_open()

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 Now + TimeValue("00:30:00"), "auto_open"

End Sub

Wer kann mir sagen, was ich in ein auto_close makro einfügen muss um die schleife zu stoppen.