Please help.

I am getting the referenced error when running this code. I have checked the name of my pivot table and pivotfield. The pivotfield is a pivot filter item I have another code with the exact same setup for another field and it works perfectly..

Sub Building1_Change()
Dim ChartType As String
Dim WS As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Actual1").PivotFields("Building_COID").CurrentPage = ClearAllFilters
Worksheets("Sheet2").PivotTables("Actual1").PivotFields("Building_COID").CurrentPage = Range("AB1").Text
Worksheets("Sheet2").PivotTables("Budget1").PivotFields("Bud coid").CurrentPage = Range("AB1").Text
Worksheets("Sheet2").PivotTables("Projection").PivotFields("Building_ID").CurrentPage = Range("AB1").Text
End With
End Sub