On Time Function

[Bill]

Hello All,
I want to run a procedure every x minutes. To test this, I am using the
following:

Application.OnTime EarliestTime:=Now + TimeValue("00:00:10"),
procedure:="SeeifTimeisPass"

Then I have a sub:

Sub SeeifTimeisPass
msgbox "Hi"
end sub

It runs through one time, but then does not reschedule to run again (running
every 10 seconds in this example). Any ideas why.

Thanks,.

 

[Chip Pearson]

OnTime only runs the code once. You have to reschedule the OnTime
method each time. See www.cpearson.com/excel/ontime.htm for
example code.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com