Cannot Stop my Time-Counter

[Telefonstolpe]

Hi,

I've got a macro that, when activated, counts the time in seconds in cell F2, starting on zero.
That macro works perfectly well.

However it's the third Macro "StopTimer" that doesn't work and I cannot figure out why.
Error Message: "Run-time error '1004': Method 'OnTime of object '_Application' failed"

Sub StartTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
End Sub


Sub Increment_count()
Range("F2").Value = Range("F2") + 1
StartTimer
End Sub


Sub StopTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", Schedule:=False
End Sub


Is there somebody who can see what I have don wrong?

Regards /Chris

 

[ParamRay]

.
.

Try this syntax instead:

Sub StopTimer()

    Application.OnTime _
        EarliestTime:=Now + TimeValue("00:00:01"), _
        Procedure:="Increment_count", _
        Schedule:=False

End Sub

 

[Telefonstolpe]

Hi and thanks for your time,

Unfortunately it didn't work, it resulted in the same error-message as before.

However I discovered that the time-counting macro wasn't working as well as I thought:
It stops counting as soon as you start editing in the worksheet, which is not desireable,
so I have to change the whole code...

/Chris