PivotField.DataType (Excel)

Returns an XlPivotFieldDataType value that represents the type of data in the PivotTable field. Possible return values are xlDate - Contains a date, xlNumber - Contains a number, xlText - Contains text.

Dim xpfDataType As XlPivotFieldDataType
xpfDataType = ActiveCell.PivotField.DataType