PivotTable Filtering

[MaximusHorilius]

Hi Everyone,

Been stuck with this problem for the past hour and just cant seem to get this code to work. From my perspective I am referring the code correctly and the code runs through and gives no issues, however the code is not filtering the pivot table at all.

Look forward to your assistance.

Thanks in advance.

Code is listed below.

If Sheets("Calculations").Range("S7").Value = 0 Then    If Sheets("ForecastAccuracy").PivotFields("Department") Like Sheets("Calculations").Range("C7") Then
        Sheets("Forecast Accuracy").PivotTables("ForecastAccuracy").PivotFields("Department").PivotItems(i).Visible = False
    End If
End If

Maximus out