Hi,

To get a running clock insert the code below in a general module. Run the
sub StartClock to strat the clock running and StopClock to stop it

Dim Go As Boolean
Sub StartClock()
Go = True
MyClock
End Sub

Sub MyClock()
If Go Then
Worksheets("Sheet1").Cells(1, 1).Value = Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "MyClock"
End If
End Sub

Sub StopClock()
Go = False
End Sub


Mike


"Randy" wrote:

Is there a way of having today's time continuously running within a cell and
use it to "count down" the time remaining in other cells?

Thanks for your help!!

Randy