VBA for Pivot Table - Removing Measures

[thedesk]

Hi there, is there a way to remove all of the available measures rather than listing each one as below ?

Please see below for some sample code.

ActiveSheet.PivotTables("PivotTable1").CubeFields("[Measures].[XXX1]").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable1").CubeFields("[Measures].[XXX2]").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable1").CubeFields("[Measures].[XXX3]").Orientation = xlHidden

etc, all the way to about 70.

This removes the measures that I would like. Except i have to specifically name them. Is there a way to remove all measures using one bit of code, or do I have to name them to get them removed?


Thanks in advance.

 

[BSALV]

it looks like a string you have to make in a loop

     For i = 1 To 70
          s = "[Measures].[" & Right("XXXX" & Format(i, "0"), 4) & "]"
          MsgBox s
         ActiveSheet.PivotTables("PivotTable1").CubeFields(s).Orientation = xlHidden
      Next