Timer to pause code

[Damo10]

Hi,

I would like some code that I can put in my current code that will have a timer or a loop of some kind that will effectivly pause the code until the time has elapsed, I would like to pause my code for 2 seconds before it continues.

Any help would be greatfull

 

[Paul B]

try this
Application.Wait Now + TimeValue("00:00:02")

 

[Damo10]

Hi,

Thanks that works great, can i also change this so it will pause for half a second?

Regards

 

[Paul B]

Not sure using wait this looks close, tested with a time like 10 sec.
Application.Wait Now + TimeValue("00:00:01") / 2

If not you could use this
Dim i As Single
i = Timer
While Timer - i < 0.5
Wend
'your code here