Timer question - how do I wait half a second?

[Tim Grollman]

This code will refresh a chart with different data every second, via cell A26. I want it to refresh every 1.5 seconds but I get a type mismatch. Is there a way I can specify fractions of a second?

Sub SlideShow()

For n = 1 To 10
Range("A26").Value = n
Application.Wait (Now + TimeValue("0:00:1"))
Next n

End Sub

 

[pcc]

Use this function ast top of module

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

then use the sleep statement

sleep 1500

 

[BrianB]

'--------------------------------------------------------
Private Declare Sub Sleep Lib "kernel32" _
        (ByVal dwMilliseconds As Long)
'--------------------------------------------------------
Sub test()
    Beep
    Sleep 500   ' half a second
    Beep
End Sub

 

[Tim Grollman]

Timer query

Excellent, thank you. Do you know how the user can interrupt the cycle when he sees something interesting? I want to have pause and resume buttons below the cycle button, but when it is running I just get the egg timer and can't access Excel until it finishes.