PivotField.CubeField (Excel)

Returns the CubeField object from which the specified PivotTable field is descended.

Dim cbfCubeField As CubeField
Set cbfCubeField = ActiveCell.PivotField.CubeField