一定時間毎にマクロを実行

http://www.traderspage.biz/blog/2006/07/post_72.html

Sub test() 実行間隔 = Now + TimeValue(“00:00:30″) ‘（30秒後）
Application.OnTime TimeValue(実行間隔),
“test1″ ‘実行させるマクロ名
End Sub
Sub test1() ‘ここへマクロを記入
Application.Run “test” ‘戻す
End Sub