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:

ActiveSheet.PivotTables("PivotTable3").PivotFields("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 actually makes all of
the PivotItems visible. Any suggestions.