Experts sua ajuda!

Eu fiz uma macro que consulta dados num banco SQL, vai tudo lindo maravilhoso, o problema é que eu gostaria de ao término da Consulta e população dos campos ele desse um RefreshAll automático

Eu criei uma função para isto, adicionei um botão e atribui

Sub RefreshSheet()
'
' Macro para update dos Dados
'
    ActiveWorkbook.RefreshAll
End Sub

O que rola é o seguinte eu fiz uma aba com tabelas dinâmicas e preciso que atualizem automaticamente após a consulta no banco, se eu clicar no botão rola, mas via código não!

Alguma luz?

Não adianta anexar a planilha, pois não terá conexão com banco!

[]s