Delay Timer

[Michael Walker]

Hi, I need some help getting this timer to work properly.

What it does is just delay the start of a procedure, though while it is counting down my toolbars become inactive. Is there maby a better way to do this? Thanks.

Private Sub Time()

Dim PauseTime, Start

PauseTime = 6
Start = Timer

Do While Timer < Start + PauseTime
DoEvents
Loop

NextSub

End Sub

 

[PA HS Teacher]

You Could use the following:

Application.OnTime Now() + TimeValue("00:00:06"), "YourSubName"