,
Heres what you need to do.
3 Macros As follows
1.
Sub Start()
'
' The_Sub Macro
' Macro recorded 06/04/2005 by Tom Hewitt
'
'
Calculate
'
RepeatTimer
End Sub
==========
The first Macro starts the calucation process.
Macro 2.
Sub RepeatTimer()
'
' Starttimer Macro
' Macro recorded 06/04/2005 by Tom Hewitt
'
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime earliesttime:=RunWhen, procedure:="Start", _
schedule:=True
End Sub
=========
This repeats the process. On the first line alter the number 1 to the
number of seconds you require the calculation interval to be.
Macro 3.
Sub StopTimer()
'
' StopTimer Macro
' Macro recorded 06/04/2005 by Tom Hewitt
'
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedure:=cRunWhat, schedule:=False
End Sub
========
This stops the timer.
Enjoy. Adapted from the linked site mentioned in the thread above.
Cheers
Tom Hewitt