expression.PivotCell
expression Required. An expression that returns a Range object.
Example
This example determines the name of the PivotTable the PivotCell object is located in and notifies the user. The example assumes that a PivotTable exists on the active worksheet and that cell A3 is located in the PivotTable.
Sub CheckPivotCell()
'Determine the name of the PivotTable the PivotCell is located in.
MsgBox "Cell A3 is located in PivotTable: " &
_ Application.Range("A3").PivotCell.Parent
End Sub