PivotField Property Example

This example displays the name of the PivotTable field that contains the active cell.

Worksheets("Sheet1").Activate
MsgBox "The active cell is in the field " & _
    ActiveCell.PivotField.Name