Thanks Bob, it works!

I'm really new to Macros so I didn't know you could just run them like that.
I only used them to write functions before.

"Bob Phillips" wrote:

You don't need anything on the worksheet, it finds A1 itself (you can change
that to any cell you want).

All you need to do is fire it. Goto menu ToolsMacroMacros... and select
StartTimer from the list, then click Run. You can stop it in a similar
manner.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Atreides" <atreides1AThotmailD0Tcom wrote in message
...
Thanks Bob, that looks promising, however I'm not sure exactly how to run
this code. I assume that I need a sheet labelelled "Sheet1" and that the
clock will appear in cell A1? Perhaps I've entered the code wrong.My VBA
module looks like this:

====

Public RunWhen As Double
Public Const cRunIntervalSeconds = 120 ' two minutes
Public Const cRunWhat = "The_Sub"
Sub StartTimer()

RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedu=cRunWhat, _
schedule:=True
End Sub

Sub The_Sub()

Dim nTime As Double
Sub myClock()
nTime = Now + TimeSerial(0, 0, 1) ' 1 secs
Worksheets("Sheet1").Range("A1").Value = Time
Application.OnTime nTime, "myClock"
End Sub

Sub StopClock()
Application.OnTime nTime, "myClock", , False
End Sub

StartTimer

End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedu=cRunWhat, schedule:=False
End Sub

====

Should I have put your block somewhere else?

Thanks
Atreides