Range.PivotField (Excel)

Devuelve un objeto PivotField que representa el campo de tabla dinámica que contiene la esquina superior izquierda del rango especificado.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotField