application.OnTime
а в обработчике сделайте новый
application.OnTime со сдвигом времени на 1 минуту
или же createtimer через api

если совсем не рубишь, то вот
вставляешь новый модуль ( обязательно) и в него кидаешь код
Public Sub BBB()
MsgBox "OnTime"
Application.OnTime Now + TimeValue("00:01:00"), "BBB"
End Sub

В любом другом месте пишешь(хоть в immediate - отладчик - маленькое окно внизу ctrl-g)
Application.OnTime Now + TimeValue("00:01:00"), "BBB"
если захочешь отключить то вот так
в модуле (где bbb) в самом верху пишешь

public ExitFlag as boolean

в BBB вносишь изменение :
Public Sub BBB()
if Exitflag then exit sub
MsgBox "OnTime"
Application.OnTime Now + TimeValue("00:01:00"), "BBB"
End Sub

В том месте где хочешь выключить пишешь
ExitFlag=True
УДачи