Dá uma olhada.

Abs

Obrigado desde já,

Preciso de mas algumas coisas, tem como colocar um tempo em contagem regressiva, e fazer o envio por email no horario de 22:00 para disparar automatico, das ocorrencia autorizadas.

Gostaria de leva meu topico para VBA & Macro !
Creio que para fazer o que quero agora o pessoal de lá pode me ajuda.

Pegue essa rotina em outro topico será que pode me ajuda!
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

Olá pessoal,
preciso de ajuda!