Rodar consultas com delay de alguns segundos entre elas.

Srs bom dia. Preciso mais uma vez de uma ajuda.
Tenho uma macro criada que roda 6 consultas, uma após a outra... porém preciso de um comando na macro que dê um delay de 10 segundos entre a execução de uma consulta e outra... alguem pode me ajudar?

Inserir módulo
no módulo criado adicionar o código

Código:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

No mesmo módulo ou em outro módulo, adicione a função abaixo:

Código:

Function Esperar_10s ()
    Sleep(10000)
End Function

Em cada macro que deseja atrasar, como ultimo comando você adiciona: Executar Código -> Nome da Função: Esperar_10s().