Instrução WaitUntil

Interrompe a execução do programa até o horário especificado.

Sintaxe:

WaitUntil Hora

Parâmetros:

Tempo: Uma expressão de Data e Hora que contém a data e hora de espera antes de o programa ser executado.

Códigos de erro:

5 Chamada de procedimento inválida

Exemplo:

REM Aguarda até 18:00 e então executa MyMacro.
REM Se ocorrer depois de 18:00, finaliza.
Sub ExampleWaitUntil
Dim vTimeschedule As Double
    vTimeSchedule = Date() + TimeValue("18:00:00")
    If vTimeSchedule < Now() Then Exit Sub
    WaitUntil vTimeSchedule
    Call MyMacro
End Sub

♥ Doe para nosso projeto! ♥