The following VBA code does not work as expected: PivotField.HiddenItemsList Property (Excel) Sub UseHiddenItemsList() ActiveSheet.PivotTables(1).PivotFields(1).HiddenItemsList = _ Array("[Product].[All Products].[Food]", _ "[Product].[All Products].[Drink]") End Sub To properly use this you must use the CubeField Object and also set the