CalculatedMember.Type (Excel)

Returns an XlCalculatedMemberType value that represents the calculated member type. Possible return values are xlCalculatedMeasure - The member is a Multidimensional Expressions (MDX) expression that defines the measure, xlCalculatedMember - The member uses a Multidimensional Expression (MDX) formula, xlCalculatedSet - The member contains an MDX formula for a set in a cube field.

Dim xcmType As XlCalculatedMemberType
xcmType = ActiveCell.PivotTable.CalculatedMembers(1).Type