Makro Durdurma

[kaos64]

Merhabalar
bu şekilde makroyu çalıştırabiliyorum.
Application.OnTime Now + TimeValue("00:00:30"), "MAKRO"

durdurmak için ne yapabilirim.

 

[cems]

' Makroyu başlat prosedürü
Dim myTime As Date
myTime = Now + TimeValue("00:00:30") Application.OnTime myTime, "MAKRO"

' Makroyu durdurmak için prosedür
Sub DurdurMakro()
On Error Resume Next Application.OnTime myTime, "MAKRO", , False
End Sub