PivotItem.LabelRange (Excel)

Retorna um objeto Range que representa todas as células no relatório de tabela dinâmica que contêm o item. Somente leitura.

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