[Resolvido] como executar uma macro a cada 5 segundos?

Estou tentando fazer com que uma determinada macro seja executada a cada 5 segundos

como fazer isso ?

o código VBA que estou usando é este:

Sub Auto_Open()
Call TesteOnTime
End Sub
Sub ExecutaOnTime()
'
' macro1 Macro ( se adicionada a um botão e executada, ela efetua o procedimento de atualização da minha tabala dinamica)
'
'
ActiveWorkbook.RefreshAll
End Sub

Public Sub TesteOnTime()
Call Application.OnTime(Now + TimeValue("00:00:05"), "ExecutaOnTime")
End Sub

já consegui fazer com que o arquivo depois de aberto execute a macro em 5 segundos, mas preciso fazer com que ela continue esse teste.

Agradeço a ajuda.

Volnei


Coloque o código no evento No Time
na folha de propriedades do formulário
e no Intervalo do Cronometro: 5000 ( 1 seg=1000).

[ ]'s

Olá .. obrigado pelo Retorno... vlw mesmo

Caso tenha solucionado,

coloque o Resolvido no título do tópico.
Veja como ali na minha assinatura.

ok