ParentItem Property Example

This example displays the name of the parent item for the item that contains the active cell.

Worksheets("Sheet1").Activate
MsgBox "This item is a subitem of " & _
    ActiveCell.PivotItem.ParentItem.Name