PivotTable - PivotFields VBA
 

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:

"ActiveSheet.PivotTables("PivotTable3").PivotField s("ACADEMIC_YEAR"). _
ClearValueFilters
With ActiveSheet.PivotTables("PivotTable3").PivotFields ("ACADEMIC_YEAR")
.PivotItems(YrF).Visible = True
End With"

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 actuall makes all of
the PivotItems visible. Any suggestions.