Sub digital_clock()
Range("b1").Value = Now
Application.OnTime Now + TimeValue("00:00:01"), "digital_clock"
End Sub