'タイマーを止める時に使う為、グローバル定義
Dim Next_timer As Date
Sub Timer_set()
	'次回のタイマー呼び出しは1分後
	Next_timer = Now + TimeValue("00:01:00")
	'1分後に呼び出す処理を登録
	Application.OnTime Next_timer, "Timer_go"

End Sub

Sub Timer_go()
	'1分後に呼ばれる処理を記述

End Sub

Sub Timer_stop()
	'登録済みのタイマーを止める処理（実行済みのタイマーなら意味なし）
	Application.OnTime Next_timer, Procedure:="Timer_go", Schedule:=False
	'注意：実行済みで呼ばれた場合エラーとなるため、on error resume nextなどが推奨

End Sub