CubeFieldType Property Example

This example creates a list of cube field names for the measure fields in the first OLAP-based PivotTable report on Sheet1.

Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objCubeFld in Worksheets("Sheet1").PivotTables(1).CubeFields
    If objCubeFld.CubeFieldType = xlMeasure Then
        objNewSheet.Cells(intRow, 1).Value = objCubeFld.Name
        intRow = intRow + 1
    End If
Next objCubeFld