Worksheet.PivotTables (Excel)

Retorna um objeto que representa um único relatório de tabela dinâmica um objeto PivotTable ou uma coleção de todos os relatórios de tabela dinâmica (um objeto PivotTable ) em uma planilha. Somente leitura.

PivotTables (Index)

Index: O nome ou número do relatório.

Dim pts As PivotTables
Set pts = ActiveSheet.PivotTables()