一定時間ごとに繰り返し実行する

一定時間ごとに繰り返し実行する方法は
いろいろあると思います。

OnTimeメソッドを使った方法を考えてみます。
OnTimeメソッドの使い方は

OnTime "実行したい時刻", "実行したいプロシージャの名前"

macro100810aは、
1秒ごとにA1セルに現在の時刻を入れていきます。
A60セルまで時刻を入れたら終了します。

コードはこちら

Sub macro100810a()
'一定間隔で実行する
'OnTimeメソッドを使う
   
    Range("A1").Insert shift:=xlDown
    Range("A1") = Format(Now(), "hh:mm:ss")
   
    If Range("A60") = "" Then
        '1秒後にmacro100810aを実行
        Application.OnTime Now() + TimeValue("00:00:01"), "macro100810a"
    Else
        Range("A1:A60").Clear
    End If
   
End Sub

実行中のシートの様子：

自分で自分を呼び出すところに
ちょっとパラドックスに陥りそうになります。