MAch es mal so:
Private Sub AutoUpdate_Click()
call ReRunMacro
End Sub
Und in ein normales Modul dann die Prozeduren "Update Report" und das "ReRunMacro":
Sub ReRunMacro()
Call UpdateReport
Application.OnTime Now() + TimeValue("00:02:00"), "ReRunMacro"
End Sub
|