VBA with pivot table - reposting. please help!

[nancymk]

For a certain field in my pivot table (lets call it field1) I want to show only choices 1-5 and remove blanks and anything else that pops up. The problem is, there are a lot of other things that could be in field1, so it's not has easy as turning off the visibility for blanks. Also, there might not be 1-5 every time.

How would I change this code to turn visibility for all other choices to false and not crash if say there is no 2.

Sheets("Com").Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Field1")
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
.PivotItems("3").Visible = True
.PivotItems("4").Visible = True
.PivotItems("5").Visible = True

 

[AlphaFrog]

    Dim pt As PivotTable
    Dim pi As PivotItem
    Set pt = ActiveSheet.PivotTables("PivotTable2")
    pt.ManualUpdate = True
    For Each pi In pt.PivotFields("Field1").PivotItems
        Select Case pi.Value
            Case "1", "2", "3", "4", "5"
                pi.Visible = True
            Case Else
                pi.Visible = False
        End Select
    Next pi
    pt.ManualUpdate = False

 

[nancymk]

thank you so much!