Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Bom dia,

Uma opção é usar o código abaixo:

Sub AgendarMacro

   'Definir a Hora'
   vHoraAgenda = Date + TimeValue("09:58:30")

   'Verificar se já passou da hora'
   If vHoraAgenda < Now() Then Exit Sub

   'Agendar'
   WaitUntil vHoraAgenda

   'Executar a macro qdo a hora chegar'
   MsgBox Now()

End Sub

Você deve substituir MsgBox Now() por Call Nome_da_Macro para chamar a macro desejada na hora determinada pela instrução WaitUntil.

Atte,