The following VBA code does not work as expected: PivotField.HiddenItemsList Property (Excel) [https://msdn.microsoft.com/en-us/library/office/ff195478.aspx] 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