TableRange2 Property Example
This example selects the entire PivotTable report, including its page fields.
Worksheets("Sheet1").Activate Range("A3").PivotTable.TableRange2.Select