Выключение макроса

[Gvaridos]

Всем доброго времени суток!

Задача в следующем:
Есть макрос который Запускается в 10.30 и работает с периодичностью в 30 сек.
Необходимо чтобы макрос "выключался" в 18.30 по окончании рабочего дня

Подскажите как это сделать?

[аналитика]

Sub m()
   'что-то
   NextTick = Now + TimeValue("00:00:30")
   If NextTick < TimeValue("18:30:00") Then Application.OnTime NextTick, "m"
End Sub

[Gvaridos]

....Спасибо!

[Gvaridos]

Вот так получилось будет работать?
Макрос "Find_Copy" зациклен внутри себя самого.

Sub Auto_Open()
'
Application.OnTime TimeValue("09:00:00"), "Auto_Open"
Application.OnTime TimeValue("10:30:03"), "Find_Copy"
Application.OnTime TimeValue("11:30:00"), "Backup_Active_Workbook"
Application.OnTime TimeValue("13:00:00"), "Backup_Active_Workbook"
Application.OnTime TimeValue("15:00:00"), "Backup_Active_Workbook"
Application.OnTime TimeValue("17:00:00"), "Backup_Active_Workbook"
Application.OnTime TimeValue("18:45:00"), "Backup_Active_Workbook"
If Time < #6:30:00 PM# Then Application.OnTime Now + #12:00:30 AM#, "Find_Copy"

'
End Sub

[аналитика]

чё-то запутано, Auto_Open сам себя вызывает, может так лучше:

Sub Auto_Open()
   m
End Sub

Sub m()
   'что-то
   NextTick = Now + TimeValue("00:00:30")
   If NextTick < TimeValue("18:30:00") Then Application.OnTime NextTick, "m"
End Sub

[Gvaridos]

.........Спасибо!