Zeitstempel und Counter zu aktualisierung

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