サンプルマクロは、１分ごとにセルＡ１に日時を表示することで、
簡易の時計機能を持たせます。

Sub Sample()

Dim myTime As Date

    myTime = CDate(Format(Now() + TimeValue("00:01:00"), "hh:mm:00"))
    Range("A1").Value = Now()
    Columns("A").AutoFit
    Application.OnTime myTime, "Sample"

End Sub