すいません途中で送信してしまいました
以下は途中まで作ったプログラムです
3分ごとの処理をどう書けばいいかご教授願いたいです

Sub 一秒毎()
'3分毎の処理
・・・

Application.OnTime Now + TimeValue("00:00:01"), "一秒毎", Now + TimeValue("00:00:02")
End Sub