PivotItem Property Example

This example displays the name of the PivotTable item that contains the active cell on Sheet1.

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