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"),
procedu="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,.

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


"Bill" wrote in message
ink.net...
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"),
procedu="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,.