Snasui Excel Forum

Code: Select all

Sub StartTimer1()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick1"
End Sub
Sub nexttick1()
    If Sheet1.Range("Z6") = 0 Then Exit Sub
        Sheet1.Range("Z6").Value = Sheet1.Range("Z6").Value - TimeValue("00:00:01")
    StartTimer1
Sub stopTimer1()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick1", , False
End Sub