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