DataBodyRange Property Example

This example selects the active data range in the PivotTable report.

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