I don't really recommend it, especially as most PCs already have plenty
of clocks but you could try something like this:

Private Sub Worksheet_Activate()
Set clockCell = Range("a1")
showTime
End Sub

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.OnTime clockTim, "showTime", , False
End Sub

'
'Then in a module
'

Public clockTim As Variant
Public clockCell As Range
Public Sub showTime()
clockCell.Value = Format(Now, "'hh:mm:ss")
clockTim = Now + TimeValue("00:00:01")
Application.OnTime clockTim, "showTime"
End Sub


scottnshelly < wrote:
thanks. unfortunatley this is for work and i can't download anything on
the work computers. no big deal. just wanted to spruce up a workbook
or two.
thanks for the help guys.


---
Message posted from http://www.ExcelForum.com/