New to VB in Excel Need to pause Macro 1

[Barneye]

Hello!


I have a macro in Excel that I wrote. I need it pause to 10 seconds before it executes the next set of code. I am using

Application.Wait Now + TimeValue("00:00:10")

This works but seems to freeze the entire application. I have ODBC updates running in the background that need to run while the macro is paused.

Is there an "easy" way to accomplish this?

Thanks!

 

[Sweenster]

Hi, try adding this to the end of your code

Private Sub WaitRoutine(NoSeconds)
Dim PauseTime As Long
Dim Start As Long
Dim Finish As Long

    PauseTime = NoSeconds   ' Set duration.
    Start = Timer   ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer  ' Set end time.
End Sub

Then at the point you want to pause, insert the line

WaitRoutine(10) 'e.g. wait for 10 seconds

 

[Barneye]

Awesome! Thanks!