Running Clock w/ Freeze

[soundswarm]

I would like to have a running clock in cell A1 based on my system's time and have a button to press so I can freeze it. Any ideas?

 

[erik.van.geit]

Hi,

don't use a cell to do this, but use a textbox
using a cell has major drawback*: it will disable, cut copy paste

in thisworkbookmodule

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopIt
'ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
RunIt
End Sub

in normal module

Option Explicit

Dim RunOnTime As Double
Dim LastRun As Double

Sub RunIt()
Dim sec As Integer

sec = 1 'procedure will run each ... second(s)
    
LastRun = Timer

Sheets(1).TextBox1 = Time
    
RunOnTime = Now + sec / 60 / 60 / 24
Application.OnTime RunOnTime, "RunIt", , True


End Sub

Sub StopIt()
On Error Resume Next
Application.OnTime RunOnTime, "RunIt", , False
RunOnTime = 0
End Sub

*if you absolutely want to use a cell, whithout the drawback, there is a trick: use running-clock on other (hidden) sheet and refer to there with a formula

kind regards,
Erik