Range.PivotCell (Excel)

Returns a PivotCell object that represents a cell in a PivotTable report.

Dim pvtlcelPivotCell As PivotCell
Set pvtlcelPivotCell = ActiveCell.PivotCell