You could use the following procedure:
Sub Wait(n As Long)
Dim t As Date
t = Now
Do
DoEvents
Loop Until Now >= DateAdd("s", n, t)
End Sub
Call like this to wait for 10 seconds:
Wait 10
or
Call Wait(10)
Regards, Hans Vogelaar (http://www.eileenslounge.com)