Hiding Power Pivot Data Fields VBA

[temerson11]

I'm trying to hide certain data fields (or cube fields in this situation) with VBA. Here is my current code:

Dim pt As PivotTable, cf As CubeField
Set pt = Sheets("RECAP").PivotTables("Major/SubCat Pivot")
With pt
.ManualUpdate = True
ActiveSheet.PivotTables("Major/SubCat Pivot").CubeFields
cf("Vendor").Orientation = xlHidden

 

[temerson11]

I'm trying to hide certain data fields (or cube fields in this situation) with VBA. Here is my current code:

Dim pt As PivotTable, cf As CubeField
Set pt = Sheets("RECAP").PivotTables("Major/SubCat Pivot")
With pt
.ManualUpdate = True
ActiveSheet.PivotTables("Major/SubCat Pivot").CubeFields
cf("Vendor").Orientation = xlHidden

answered my own question. solved this with the following code:

With ActiveSheet.PivotTables("Major/SubCat Pivot").CubeFields( _
"[COSTCHANGE].[Brand Code]")
.Orientation = xlHidden