PivotField.DataType procedure builder

PivotField.DataType (Excel)

Returns an XlPivotFieldDataType value that represents the type of data in the PivotTable field.

xlDate - Contains a date, xlNumber - Contains a number, xlText - Contains text.
Dim xpfDataType As XlPivotFieldDataType
xpfDataType = ActiveCell.PivotField.DataType