Код для остановки макроса:

Dim nextTime

Sub Макрос1()

'...

nextTime = Now + #12:10:00 AM#

Application.OnTime nextTime, "Макрос1"

End Sub

Sub StopМакрос1()

On Error Resume Next

Application.OnTime nextTime, "Макрос1", , False

End Sub

А чтобы Ctrl+Break не помогал, можете воспользоваться командой

Application.EnableCancelKey = xlDisabled