Sub CallTimer()

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

If you are actively using the computer while this is running, it could cause
variations in the times posted.
--
Regards,
Tom Ogilvy



loMM2" wrote in message
...
Bob,
I ran your sample, after adding a DIM nTime.
It runs, but the data (time) is not added to the spreadsheet.
Thanx:-)
FloMM2

"Bob Phillips" wrote:

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.