VBA: Reliable timing with Application.OnTime?
===

I need to run a large procedure (RunLargeSub) every second, and this procedure takes about 0.5s to complete.  I'm currently using Application.OnTime, but won't this result in RunLargeSub being called every ~1.5s ?   Is it possible to fix this to 1.0s?


    Sub Update()
        RunLargeSub
        NextTick = Now + TimeValue("00:00:01")
        Application.OnTime NextTick, "Update"
    End Sub


    Sub Stop()
        On Error Resume Next
        Application.OnTime NextTick, "UpdateClock", , False
        On Error GoTo 0
    End Sub


All help much appreciated.