The code shows digital time However I want that the code shall put the time (without clicking start time) and keep updating the same as long as the WB is open at Cell A1 of Sheet 1 whenever the WB is opened and shall delete the time before close.
Sub StartClock()
UpdateClock
End Sub
Sub UpdateClock()
' Updates the clock that's visible
' DIGITAL CLOCK
ThisWorkbook.Sheets("Clock").Range("DigitalClock").Value = CDbl(Time)
' Set up the next event one second from now
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub