Dann schreib mal das zweite Makro so um:
Sub ReRunMacro() Call UpdateReport Application.OnTime Now() + TimeValue("00:02:00"), "ReRunMacro" End Sub