Help Selecting Range in PivotTable Filter

[whydaman]

I'm wondering if someone could provide some guidance my way on how to set up a range determination for PivotTable filters. In the code below that I recorded, I found that the macro recorded everything that I didn't want to select from the list (basically, everything less than 7). Is there a means to code something in VBA that would show the equivalent of .PivotItems("<7").Visible = False?



ActiveSheet.PivotTables("No Call 7+").PivotFields("Appr Days Out").CurrentPage _
= "(All)"
With ActiveSheet.PivotTables("No Call 7+").PivotFields("Appr Days Out")
.PivotItems("0").Visible = False
.PivotItems("1").Visible = False
.PivotItems("-3").Visible = False
.PivotItems("-4").Visible = False
.PivotItems("5").Visible = False
.PivotItems("6").Visible = False
.PivotItems("(blank)").Visible = False
End With
ActiveSheet.PivotTables("No Call 7+").PivotFields("Appr Days Out"). _
EnableMultiplePageItems = True