Range.PivotField (Excel)

Returns a PivotField object that represents the PivotTable field containing the upper-left corner of the specified range.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotField