PivotField.LabelRange (Excel)

Returns a Range object that represents the cell (or cells) that contain the field label.

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