Hi
I use this little delayer in alot of my programs.
To call it, just type SD NumOfSeconds
For example, to delay your code for about a minute, put this in SD 60
It will call the Sub and stop for about 60 seconds.
Place the code in a standard module
Sub SD(LenTime)
Dim Start
Start = Timer
Do While Timer < Start + LenTime
DoEvents
Loop
End Sub
Tom