PageRange Property Example

This example selects the page headers in the PivotTable report.

Worksheets("Sheet1").Activate
Range("A3").Select
ActiveCell.PivotTable.PageRange.Select