Hi, if you insert this in a module and just use the command Pause(xx) wherever you like in your project that should work for you - xx is equal to the number of seconds:
Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Err_Pause
Dim PauseTime As Variant, Start As...