Range.QueryTable (Excel)

Retorna um objeto QueryTable que representa a tabela de consulta que cruza o objeto Range especificado.

Worksheets(1).Range("a10").QueryTable.Refresh