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