ParentShowDetail Property Example

This example displays a message if the item that contains the active cell is visible because its parent item is showing detail.

Worksheets("Sheet1").Activate
Set pvtItem = ActiveCell.PivotItem
If pvtItem.ParentShowDetail = True Then
    MsgBox "Parent item is showing detail"
End If