VBA & PivotField Code

I am trying to complete some VBA code that will allow me change a filter on a
pivottable. The code I am using is as follows:

Please Login or Register  to view this content.

The code properly checks to correct item based on my variable in the With
statement. My problem is the the ClearValueFilters method before it is not
working. I am trying to clear any PivotItems that are currently visible w/o
have to hard card each one current visible. I though the the
ClearValueFilters method would do this for me, but it actually makes all of
the PivotItems visible. Any suggestions.