Boa noite!!

Ao iniciar e depois para eu não tive o erro citado!

Att

Boa noite!!

Ao iniciar e depois para eu não tive o erro citado!

Att

desculpe eu inseri uma linha no botão stop "On Error Resume Next", por isso não viu o erro.
O evento não é cancelado e a macro fica rodando sem parar e o botão da mensagem aparecendo no tempo determinado.
Segue outro arquivo sem a linha que pula o erro.

Boa noite!!

Tente...

Fonte: http://www.cpearson.com/excel/OnTime.aspx

Public RunWhen As Double
Public Const cRunIntervalSeconds = 5
Public Const cRunWhat = "TheSub"

Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=False
End Sub
Sub TheSub()
    MsgBox "Agora são " & Time & "."
    StartTimer
End Sub

Att

Show de bola AlexandreVBA.
Funcionou perfeitamente.

Abraço.