PivotTable.Version (Excel)

Returns an XlPivotTableVersionList value that represents the Microsoft Excel version number. Possible return values are xlPivotTableVersion10 - Excel 2002, xlPivotTableVersion11 - Excel 2003, xlPivotTableVersion12 - Excel 2007, xlPivotTableVersion14 - Excel 2010, xlPivotTableVersion15 - Excel 2013, xlPivotTableVersion2000 - Excel 2000, xlPivotTableVersionCurrent - Provided only for backward compatibility.

Dim xptVersion As XlPivotTableVersionList
xptVersion = ActiveCell.PivotTable.Version