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

948 Steps to 6 Figures by Learning Excel-VBA and Other Skills

Step 730 - 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