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]