仕事で役立ちそうなTODOリストのソースを紹介します。
マクロ実行環境であれば、動作します。
実行できない環境向けに、HTML+Pythonで作っても良いかも。。
Option Explicit
Public mOnTime As Date
Sub TimerProc()
Range("B2") = Now()
End Sub
Sub OnTimeStart()
Call TimerProc
mOnTime = Now() + TimeSerial(0, 0, 1)
Call Application.OnTime(mOnTime, "OnTimeStart")
End Sub