carlosrgs,

Bom dia!

Até onde sei... o VBA não trabalha com horas abaixo de 1 segundo.

Quando eu precisei, fiz no modo gambiarra. Deu certo.

Trecho do meu código:

Application.Wait (Now + 0.001) 

Funfou não rs.

Mas valeu!

Como você adaptou a linha no código?

Fiz certo ?

Alterar esse:

Application.OnTime Now + TimeValue("00:00:01"), "Atualizando"

Por esse ?

Application.Wait (Now + 0.001) 

Ficou mais rapido com esse:

Application.OnTime Now + TimeValue("00:00:01") - 1, "Atualizando"
Application.OnTime Now + TimeValue("00:00:01") - 0.001, "Atualizando"

Em ambos não deu muita diferença, mas ficou mais rapido!

É que quando você usa o Wait, você manda ele executar o comando e após isso, esperar um certo tempo para depois executar novamente, usando o OnTime ele vai executar segundo à segundo, sem aguardar.

Mas está funcionando?

Abs.

Funcionou, mas ficou tão rápido que não tem como desativar clicando no botão parar kkkk
Mas ta bom, conforme comentei era a resolução de um tópico de outro usuário.