Workbook.PivotTables (Excel)

Returns an pivottables that represents a collection of all the PivotTable reports on a worksheet. Read-only.

Dim ptsPivotTables As PivotTables
Set ptsPivotTables = ActiveWorkbook.PivotTables