PivotField.LabelRange (Excel)

Devuelve un objeto Range que representa la celda (o celdas) que contiene la etiqueta del campo.

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