Here's a wee function to simplify your Wait method. Add the DoWait code as a separate sub and call it with the line "DoWait x", where x is the delay in seconds that you want.
Sub Test() Tm = Format(Now(), "hh:mm:ss") DoWait 3 MsgBox "Time up! " & Tm & " - " & Format(Now(), "hh:mm:ss") End Sub Sub DoWait(Secs As Integer) Application.Wait Now() + Secs / 24 / 3600 End Sub