Filter PivotTable Field by VBA

[Slim Slender]

Does anyone know how to 'generalize' the following:

..PivotItems("1/18/2009").Visible = False
..PivotItems("1/22/2009").Visible = False

Can I replace them with something that says don't show anything
after a certain date or less than a certain age ,
like don't show if item (date) is greater than Today() - 7.?

 

[Debra Dalgleish]

There's a sample file here that filters the pivot table based on dates
entered on the worksheet:

http://www.contextures.com/excelfiles.html

Under PivotTables, look for 'PT0022 - Filter Pivot Table for Date Range'