PivotItem.LabelRange (Excel)

Returns a Range object that represents all the cells in the PivotTable report that contain the item.

Dim rngLabelRange As Range
Set rngLabelRange = ActiveCell.PivotItem.LabelRange