Workbook.PivotCaches (Excel)

Returns a PivotCaches collection that represents all the PivotTable caches in the specified workbook.

Dim pcs As PivotCaches
Set pcs = ActiveWorkbook.PivotCaches()