vbaでマクロのタイマー起動

Sub 現在より一定時間後にマクロを実行する()
    指定時刻 = Now + TimeValue("HH:MM:SS")  '現在時刻より何分後 ※２
    待ち時間 = TimeValue("HH:MM:SS") '指定時刻に他プロシージャが実行中の場合の待ち時間 ※2
    Application.OnTime TimeValue(指定時刻), _
        "一定時間後に実行するマクロ名", _
        TimeValue(待ち時間)
End Sub

ネタ元

• http://www.max.hi-ho.ne.jp/happy/YNxv214.html#8-1