Workbook.PivotTables (Excel)

Retorna um objeto que representa uma coleção de todos os relatórios de tabela dinâmica em uma planilha. Somente leitura.

Dim ptsPivotTables As PivotTables
Set ptsPivotTables = ActiveWorkbook.PivotTables