Code to wait 10 seconds ?

[Rob]

Does VBA code exist that will allow you to invoke a 10 second delay between
events ?

 

[Allen Browne]

Something like this perhaps:

Dim dbEnd As Date
dtEnd = DateAdd("s", 10, Now())
Do While Now() < dtEnd()
DoEvents
Loop

It might also be possible to use the Timer event of the form.

 

[Guest]

Dim ST As Date
ST = Now
While (DateDiff("s", ST, Now())) < 10: Wend

 

[Rob]

Thank you both !!!

Dim ST As Date
ST = Now
While (DateDiff("s", ST, Now())) < 10: Wend