Continuous Time/Date Updates

B

Bill Lanier

Is there a way to get the time and date updated in a cell
continuously at a given interval (eg: each minute)?
 
P

Paul D

This may not be the best way, but it does work. Insert this code into a
module then run UpdateTime
Modify the cell address and format to what you need

Sub UpdateTime()
Application.OnTime Now + TimeValue("00:01:00"), procedure:="InsertTime"
End Sub

Private Sub InsertTime()
Cells(1, 1).Value = Now
UpdateTime
End Sub

Paul D
 
Top