Running multiple timers

Hmm. It works fine for me opened from the zip file. Unless you're doing something else (?) I have no idea what's causing that. Sorry!

Anyway, the idea is that you have one cell, call it "time_now", whose value is the current time. You then schedule a macro to update this cell every second, like this:

Dim SchedRecalc As Date

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

Sub Recalc()
    Range("time_now").Value = Now
    Call SetTime
End Sub

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

"SetTime" starts the timer, "Disable" stops it. "Recalc" will be run every second by the "Application.ontime" command and will update "time_now".

Your macros to start and stop your 3 timers will now use formulae linked to "time_now", e.g.

=time_now-38977.6132315972

where 38977.6132315972 is the value of Now as I write this. Each time time_now is updated, all these formulae will also change.



C