Dim SchedRecalc As Date
Dim mvTargTime As Date, mvCurrTime As Date
Sub Recalc()
With Sheet1.Range("A1")
.Value = Format(Time, "hh:mm:ss AM/PM")
End With
Call SetTime
mvTargTime = Range("A2")
mvCurrTime = Range("A1")
If mvCurrTime = mvTargTime Then ActiveSheet.Range("A3").Hyperlinks(1).Follow
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub