DataRange Property Example

This example selects the PivotTable items in the field named "REGION."

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Worksheets("Sheet1").Activate
pvtTable.PivotFields("REGION").DataRange.Select