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