By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

listi.net

Hide PivotTable items



aExempt = LoadArray(ThisWorkbook.Name, "PPTools_Lookup", "Exempt countries for WWR")



For Each Activesheet.PivotTables("PivotTable11").PivotFields("CtryOfDom").PivotItems ' recorded

   If InArray(aExempt, pitem.value) Then

      pitem.Visible = False

   Else

      pitem.Visible = True

   End if

Next