Automate PivotFields PivotItems selection in VBA help pleas

[megnin]

I have a macro to create a pivot table with a large number of dates that need to be filtered.

Right now it looks like this (much longer list though):

With ActiveSheet.PivotTables("PivotTable5").PivotFields("Book_Date")
.PivotItems("6/8/2000").Visible = False
.PivotItems("10/20/2000").Visible = False
.PivotItems("1/30/2001").Visible = False
.PivotItems("3/9/2001").Visible = False
.PivotItems("4/8/2001").Visible = False

It halts thought, when the new data does not contain a date in the list. ...It halts a lot.

Can I first make ALL .Visible = False then selectively make the dates in a certain range .Visible = True or the dates up to a specified date .Visible = True?

One range I need is: All dates up to 10 working days from today.

Another is: Yesterday only.

Is this something that can be fairly easily done? Be gentle, I'm a novice :wink:

Thanks to any one with any advice!!