Try something like

Sub CallTimer()

If nTime = 0 Then
nTime = Range("B2").Value
Else
Range("A1").Value = Format(Now(), "hh:mm")
End If
If nTime < Range("D2").Value Then
nTime = nTime + TimeSerial(0, 1, 0)
Application.OnTime Date + nTime, "CallTimer"
End If
End Sub



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"FloMM2" wrote in message
...
I need to set a timer at 1 minute interval for various time ranges. Start
time is in cell C2, end time is in cell D2. This time frame is mostly less
than 2 hours, but on rare occassions can be upto 4 hours.