PivotFilter.DataField (Excel)

This property is applicable only to non-OLAP PivotTables and provides the Value field (PivotField in the Values area) being filtered by for a value filter.

Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotTable.ActiveFilters(1).DataField