Como pausar o tempo (contador) da macro com VBA

• Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
• Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
• Insira o texto VBA copiando e colando o código abaixo:

Pausa na macro até chegar no horário do dia atual.

Application.Wait “18:23:00”

Para a macro por aproximadamente 10 segundos.

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Pausa a macro indicando por quanto tempo passou.

If Application.Wait(Now + TimeValue(“0:00:10”)) Then
MsgBox “Time expired”
End If

• Deve ser incrementado dentro do seu código.
• Feche o Visual Basic (VBA).
• No Excel clique na guia Desenvolvedor (Caso não esteja disponível veja aqui Como Ativar a Guia Desenvolvedor).
• Clique no botão macros e selecione o Nome_Da_Macro_Criada.
• Clique em executar e pronto.

Macro para repetir uma macro a cada tempo

Inicie o editor do Visual Basic – VBA  (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.

• Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
• Insira o texto VBA copiando e colando o código abaixo:

'Declaração de variáveis para o módulo inteiro
Dim tiempo As Date
Dim contador As Integer

Sub IniciaOnTime()

'controla a repetição e a cadencia
Dim allea As Integer

'repete a cada 1 minuto e 2 segundos
tiempo = Now + TimeSerial(0, 1, 2)

'chama esta macro no tempo estipulado
Application.OnTime tiempo, "IniciaOnTime"

'controlamos o final da repetição
contador = contador + 1

'enquanto o contador é inferior a 6 executa a rotina principal
'quando chegarmos a 6 nós interrompemos a repetição
If contador < 6 Then
    Run "Nome_Macro_Principal"
Else
    Run "CancelaOnTime"
End If
End Sub

• Feche o Visual Basic (VBA).
• No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
• Clique no botão macros e selecione o Nome_Da_Macro.
• Clique em executar.