VBA Code to stop macro from loopng

[chrs17sim]

Command button linked to Recalc macro. I am looking to add code to the below to stop watch based on text in a certain sheet

Dim SchedRecalc As Date
Sub Recalc()
Range("A1").Value = Format(Now, "dd-mmm-yy")
Range("A2").Value = Format(Time, "hh:mm:ss AM/PM")
Call SetTime

End Sub

Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:06")
Application.OnTime SchedRecalc, "Recalc"

End Sub

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

 

[VBA Geek]

you can just have this and type stop in D1 when it should stop

Sub Recalc()
If Not Range("D1").Value = "stop" Then
    Range("A1").Value = Format(Now, "dd-mmm-yy")
    Range("A2").Value = Format(Time, "hh:mm:ss AM/PM")
    Call SetTime
End If
End Sub

Sub SetTime()
    SchedRecalc = Now + TimeValue("00:00:06")
    Application.OnTime SchedRecalc, "Recalc"
End Sub

 

[chrs17sim]

Thanks, I'll give it a try

you can just have this and type stop in D1 when it should stop

Sub Recalc()
If Not Range("D1").Value = "stop" Then
    Range("A1").Value = Format(Now, "dd-mmm-yy")
    Range("A2").Value = Format(Time, "hh:mm:ss AM/PM")
    Call SetTime
End If
End Sub

Sub SetTime()
    SchedRecalc = Now + TimeValue("00:00:06")
    Application.OnTime SchedRecalc, "Recalc"
End Sub

 

[chrs17sim]

It worked, thanks so much