OLEDBConnection.CalculatedMembers (Excel)
Returns the CalculatedMembers collection for the specified connection.
Use the CalculatedMembers property of the OLEDBConnection collection to share calculated members between multiple PivotTables and cube functions that use the same connection.
Dim cmsCalculatedMembers As CalculatedMembers
Set cmsCalculatedMembers = ActiveWorkbook.Connections(1).OLEDBConnection.CalculatedMembers