Useful Codes- VBA,HTML

For Digital Clock

If you want Digital watch in excel like this please copy past the code .

Public NextTime As Date

Sub StartClock()
UpdateClock
End Sub

Sub UpdateClock()
Range(“A1”).Value = Format(Now, “hh:mm:ss”)
NextTime = Now + TimeValue(“00:00:01”)
Application.OnTime NextTime, “UpdateClock”
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime NextTime, “UpdateClock”, , False
End Sub