refreshall ausschalten

Sub Makro3()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:01:00"), "Makro3"
End Sub

Sub AusschaltenMakro3()
Application.OnTime Now + TimeValue("00:01:00"), Procedure:="Makro3", Schedule:=False
'Application.OnTime Now + TimeValue("00:01:10"), "Makro3", Schedule:=False
End Sub