Hi,

Public RunWhen As Double
Public Const cRunWhat = "MySub" 'procedure to run

public sub test
call startTimer
end sub


Public Sub startTimer()
RunWhen = Now + TimeSerial(0, 0, 1) 'now + 1 sec
Application.OnTime RunWhen, cRunWhat, , True
End Sub

Public Sub StopTimer()
On Error Resume Next
Application.OnTime RunWhen, cRunWhat, , False
End Sub

Regards,

JY

To run on specific times, use application.OnTime ....
See in help
"jlegoland4" wrote in message
...
We have a worksheet that we use to produce a daily
schedule. After entering the current date/day on one
worksheet, another is chosen and printed.

Ultimately, I'd like to program this daily, and include
printing to pdf.

Any thoughts on how I can do this? Suggested resources?

Thanks.