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

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

Thanks Mike!

Would that be a VB module? If yes, all code below goes into one module?

Thanks again!

"Mike H" wrote:

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

ALT+F11 to open vb editor, right click 'Thisworkbook' and insert module, the
code goes in there.

Mike

"Randy" wrote:

Thanks Mike!

Would that be a VB module? If yes, all code below goes into one module?

Thanks again!

"Mike H" wrote:

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

Perfect Mike....Thank You!

While I have your attention can you tell me how I can update workbook
information with have to close it and then re-open it?

"Mike H" wrote:

ALT+F11 to open vb editor, right click 'Thisworkbook' and insert module, the
code goes in there.

Mike

"Randy" wrote:

Thanks Mike!

Would that be a VB module? If yes, all code below goes into one module?

Thanks again!

"Mike H" wrote:

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