VBA need to deselect all items in a pivot table field...

[Lidsavr]

I am writing code for 2003 users using Excel 2007.

If the following selects all of the MultiplePage Items in a pivot table field:

    ActiveSheet.PivotTables("PT1").PivotFields("Proc"). _
        EnableMultiplePageItems = True
    ActiveSheet.PivotTables("Top_Defects").PivotFields("Proc").CurrentPage = _
        "(All)"

What code do you use to deselect them all at one time? Once I deselect them all, I want to activate only 2 or 3 of the items using the PivotItems.Visible command (I will put those items together with the two lines above using a "With/End With" command.

I have looked all over for a way to deselect all the items at one time and cannot find the code. Any help is appreciated!

Thank you,

Charles