Um timer em VBA - JJoão (08/2002)

Um timer para execução de macros, para definir o tempo de intervalo é só colocar em minutos o equivalente em segundos que se pretender. Colocar num modulo:

Dim Alarme
Const IntervaloSegundos = 5 * 60 ' 5 minutos de intervalo

Sub Iniciar()
    Alarme  =  Now  +  TimeSerial(0, 0,  IntervaloSegundos)
    Application.OnTime EarliestTime:=Alarme, _
                       procedure:="Macro1", _
                       schedule:=True
End Sub

Sub Macro1()
   'As suas rotinas
    MsgBox "Olá!!! voltarei pelas " & Format(Alarme, "hh:mm:ss"), _
            vbInformation, "Timer em Vba"
    Call Iniciar
End Sub

Sub Parar()
    On Error Resume Next
    Application.OnTime EarliestTime:=Alarme, _
                       procedure:="Macro1", _
                       schedule:=False
End Sub