ColumnRange Property Example

This example selects the column headers for the PivotTable report.

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