Macro won't stop..HELP!

[Ardwinn]

So several of you helped me with the code below which is designed to track time on a spreadsheet. It is here:

Sub Recalc()With Sheet1.Range("U1")
.Value = Format(Time, "hhmm;@")
End With
Call SetTime
End Sub
----------------------------------------
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:10")
Application.OnTime SchedRecalc, "Recalc"
End Sub

The code below used to stop the timer, however it's not working and now every 10 seconds the macro runs, even if I close the spreadsheet. Please help fix the code so it will stop the timer:

Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub

Thank you in advance.

 

[offthelip]

when using a timer I always use a cell on the worksheet which I set true to enable it and false to disable it. see below:

Sub Recalc()With Sheet1.Range("U1")
.Value = Format(Time, "hhmm;@")
End With
if cells(1,1) then
Call SetTime
end if
End Sub

Obviously change "Cells(1,1)" tosome spare cell on your worksheet. This won't cancel the timer but it will stop it resetting which if you are triggering every 10 seconds shoujld be ok.