Range.PivotField (Excel)

Retorna um objeto PivotField que representa o campo de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotField