Public myStop As Integer
Public Sub Recalculate() 'code de Joe Was (Excel MVP)
[COLOR=SeaGreen]'Standard module code.
'This starts the timer![/COLOR]
On Error GoTo Err
On myStop <> 0 GoTo Err
Calculate
Application.OnTime earliesttime:=Now + TimeValue("00:00:01"), _
procedure:="Recalculate"
End
Err:
End Sub
Public Sub myEnd()
[COLOR=SeaGreen]'Standard module code.[/COLOR]
myStop = myStop + 1
End Sub
Public Sub myReSet()
[COLOR=SeaGreen]'Standard module code.[/COLOR]
myStop = 0
End Sub