There's a timer control here too:

http://www.enhanceddatasystems.com/E...ExcelTimer.htm

Robin Hammond
www.enhanceddatasystems.com

--
Robin Hammond
www.enhanceddatasystems.com
"Bob Phillips" wrote in message
...
Beatmaker,

I gave an example back in May. Find it here http://tinyurl.com/crtl3



--

HTH

RP
(remove nothere from the email address if mailing direct)


"KCarhart" wrote in message
ps.com...
Hi Beatmaker,

I don't know if you need help with the triggering itself, but take a
look at this timer code. This example puts the timer in the status bar
rather than on a form. If you want to be able to do something else
while it runs, you can uncomment the DoEvents.

Sub timer_example()


timeout_limit = 10
start_time = Time()

Do While time_difference < timeout_limit
Application.StatusBar = time_difference & " seconds elapsed out
of " & timeout_limit
'DoEvents
current_time = Time()
time_difference = DateDiff("s", start_time, current_time)
Loop

End Sub