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.

Boas amigo,

A questão é simples,
Você vai precisar de um formulário que fique aberto todo o tempo em que sera efetuada essa chamada,
No evento "No Timer" do seu formulário coloque o vba que deseja
Abaixo deste terá "Intervalo do cronometro", coloque 5000 que equivale a 5s.
Pronto já deve funcionar