PivotField.LabelRange (Excel)

Retorna um objeto Range que representa a célula ou células que contém o rótulo do campo. Somente leitura.

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