Building in a delay between Beeps in Excel VBA

[markgo]

I am trying to build 2 second delays between Beeps in Microsoft Excel VBA. Can anybody help with the code required please

 

[meintsi]

Try inserting this:

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
*Remember.......
If you don't use your head,
your going to have to use your feet.

 

[markgo]

Perfect, thanks very much. Inserted tested and works fine. What a great site. Hope I can return the favour some time.

 

[BIGALINWALES]

Another way, create a new sub using this code:


Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Call it using this and the amount of time in brackets:


Call Sleep(5000)

 

[markgo]

Dear BIGALINWALES

Many thanks for this piece of code. I will try it tomorrow. Thanks again