Excel run macro every 5 minutes

Public RunWhen As Double
Public Const cRunWhat = "my_Procedure"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 10, 0)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub

Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

Sub my_Procedure()
    MsgBox "hello world"
    Call StartTimer
End Sub

Source: stackoverflow.com

Similar codes

0 vote297 views1 answer
Vba html document reference
VBA
5 votes300 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote295 views1 answer
Xlbycolumns is not declared
VBA
0 vote290 views1 answer
Switch pictures with buttons vb.net
VBA
3 votes286 views1 answer
Vba request json
VBA
3 votes296 views1 answer
Vba not equal
VBA
1 vote292 views1 answer
Vba reverse string
VBA
0 vote276 views1 answer
Vba pass named range to function
VBA
8 votes395 views1 answer
Excel vba make word
VBA
2 votes297 views2 answers
Excel vba copy values range to another range
VBA