Public nTime As Double

Public Sub TimeDisplay()
ActiveSheet.Range("D(").Value = Time
nTime = Now + TimeSerial(0, 0, 1)
Application.OnTime nTime, "TimeDisplay"
End Sub

Public Sub StopTimeDisplay()
Application.OnTime nTime, "TimeDisplay", , False
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"wilchong via OfficeKB.com" <u43231@uwe wrote in message
news:868978cd33cad@uwe...
In the cell D5 showing the time in the format: 9:23:43 (h:mm:ss), the time
will only update when I click on the cell D5. Therefore, is there any way
to
keep "ss" moving without manually click on the cell?

Many thanks for any one advice.
Wilchong

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200807/1