Pausing subroutine

[billheathco]

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub wait(ByVal dblMilliseconds As Double)
Dim dblStart As Double
Dim dblEnd As Double
Dim dblTickCount As Double

dblTickCount = GetTickCount()
dblStart = GetTickCount()
dblEnd = GetTickCount + dblMilliseconds

Do
DoEvents
dblTickCount = GetTickCount()
Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart


End Sub

I found this in another post and it works. However, when I tried to use it, I found that all execution in any other subroutine also stops. I need to stop processing the current routine while others complete. Any help would be appreciated.

 

[IRstuff]

They would need to be separate threads in the Windows context. That's not possible directly or easily within Excel VBA. see:

http://www.analystcave.com/excel-vba-multithreading-tool/

http://www.analystcave.com/vba-native-vba-multithreading/

TTFN
I can do absolutely anything. I'm an expert!
homework forum: //

http://www.engineering.com/AskForum/aff/32.aspx

faq731-376 forum1529

 

[xwb]

You could use Sleep

Public Declare sub Sleep Lib "kernel32" (ByVal ms as Long)

Public Sub wait(ByVal ms As long)
   for count = 0 to ms step 100
      DoEvents
      Sleep 100
   next
End Sub