PivotCell.DataField (Excel)
Retorna um objeto PivotField que corresponde ao campo de dados selecionado.
Essa propriedade retornará um erro se o objeto PivotCell não for uma das constantes permitidas de XlPivotCellType: xlPivotCellTypeDataField, xlPivotCellTypeSubtotalou xlPivotCellTypeGrandTotal.
Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotCell.DataField