TableRange1 Property Example

This example selects all of the PivotTable report except its page fields.

Worksheets("Sheet1").Activate
Range("A3").PivotTable.TableRange1.Select