スキルアップ・問題解決なら、モーグにおまかせ！

いつもお世話になっております。
初心者となります。
 
Sheet2のB3にこちらのサイトの即効テクニックの簡易時計を置きたいのです。
サイト：https://www.moug.net/tech/exvba/0130009.html
 

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

Private　Sub Worksheet_Activate()

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, "Worksheet_Activate()"

End Sub

標準モジュールにあるプロシージャを呼ぶようにしてください。
 
そのほか、下記に留意する必要があります。
(1)Sheet2がアクティブになったときにコールするようにするだけでは、
   前のものと重なっていきます。前のものはリセットする必要があります。
(2)また、ブックを閉じても、Excelが継続していると、再度ブックが開きます。
   ブックを閉じる時にリセットを掛ける必要があります。
    
参考コードは以下です。
（検証の関係で、10秒おきに更新するようにしていますので、そちらで修正してください）

■標準モジュール
Option Explicit
Dim myTime    As Date
Sub test()
    myTime = Now() + TimeValue("00:00:10")
    Sheet2.Range("A1").Value = Now()
    Sheet2.Columns("A").AutoFit
    Application.OnTime myTime, "test"
End Sub

Sub myReset()
    On Error Resume Next
    Application.OnTime EarliestTime:=myTime, _
        Procedure:="test", Schedule:=False
End Sub

■Sheet2モジュール
Private Sub Worksheet_Activate()
    Call myReset
    Call test
End Sub

■Thisworkbookモジュール
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Reset
End Sub

simple様
 
前回に引き続きありがとうございます泣。
（前回、simple様から簡易時計を教えてもらいはまった次第です）
そして起動しました感激。
 
なんとなくコールするのか？と一瞬よぎったりもしたんですが、いずれにしてもプロシージャ前に変数宣言をすることですべてのプロシージャでその変数名を使える技も知らなかったので、到底自力では無理でした…。
ご教示いただいたコードは、コピペだけでなく復習もしたいと思います。
 

引用:
Excelが継続していると、再度ブックが開きます