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 vote374 views1 answer
Return na vba
VBA
0 vote397 views1 answer
Find if year is leap year vb
VBA
1 vote353 views1 answer
How to do error handling in access vba
VBA
1 vote365 views1 answer
VBA Loop through recordset
VBA
0 vote325 views1 answer
How to self delete a vbscript file
VBA
5 votes381 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote372 views1 answer
VB Error Code BC30201
VBA
1 vote372 views1 answer
Vba format string as cash
VBA
4 votes358 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
27 votes508 views2 answers
Vba check if file exists
VBA