CalculatedMember Object [Excel 2003 VBA Language Reference]
Represents the calculated fields and calculated items for PivotTables with Online Analytical Processing (OLAP) data sources.
Using the CalculatedMember object
With a CalculatedMember object you can check the validity of a calculated field or item in a PivotTable using the IsValid property.
Note The IsValid property will return True if the PivotTable is not currently connected to the data source. Use the MakeConnection method before testing the IsValid property.
The following example notifies the user if the calculated member is valid or not. This example assumes a PivotTable exists on the active worksheet that contains either a valid or invalid calculated member.
Sub CheckValidity() Dim pvtTable As PivotTable Dim pvtCache As PivotCache Set pvtTable = ActiveSheet.PivotTables(1) Set pvtCache = Application.ActiveWorkbook.PivotCaches.Item(1) ' Handle run-time error if external source is not an OLEDB data source. On Error GoTo Not_OLEDB ' Check connection setting and make connection if necessary. If pvtCache.IsConnected = False Then pvtCache.MakeConnection End If ' Check if calculated member is valid. If pvtTable.CalculatedMembers.Item(1).IsValid = True Then MsgBox "The calculated member is valid." Else MsgBox "The calculated member is not valid." End If End Sub