Hello Excel Users!!

I am developing a macro which uses pivot tables to gather
data. Several times throughtout the programming I
am "filtering" the data by limiting the pivot table
fields. When writing the VBA for this I am using:

With ActiveSheet.PivotTables("PivotTable1").PivotFields
("xxxxxx")
..PivotItems("xxxxx").Visible = False
..PivotItems("xxxxx").Visible = True
End With

1. Is there anyway not to have to list all the items I
want Visible or not Visible?

2. Also the list is not always constant yet the items I
want "Filtered" is. Is there a way to write the
programming just to list the items I want visible?

Thanks for any help you can offer!!