I am getting the reference pop up when running this code. Please help!
Sub Agent1_Change()
Dim ChartType As String
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Actual1").PivotFields("Leasing Agent").CurrentPage = ClearAllFilters
ActiveSheet.PivotTables("Actual1").PivotFields("Leasing Agent").CurrentPage = Range("AE1").Text
ActiveSheet.PivotTables("Budget1").PivotFields("Leasing Agent").CurrentPage = Range("AE1").Text
ActiveSheet.PivotTables("Project1").PivotFields("Agent").CurrentPage = Range("AE1").Text
End With
End Sub
-------------------- This one woks fine
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
ActiveSheet.PivotTables("Actual1").PivotFields("Building_COID").CurrentPage = Range("AB1").Text
ActiveSheet.PivotTables("Budget1").PivotFields("Bud coid").CurrentPage = Range("AB1").Text
ActiveSheet.PivotTables("Project1").PivotFields("Bldg").CurrentPage = Range("AB1").Text------ Problem here
End With
End Sub
--------------This one has the problem
Sub Agent1_Change()
Dim ChartType As String
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Actual1").PivotFields("Leasing Agent").CurrentPage = ClearAllFilters
ActiveSheet.PivotTables("Actual1").PivotFields("Leasing Agent").CurrentPage = Range("AE1").Text
ActiveSheet.PivotTables("Budget1").PivotFields("Leasing Agent").CurrentPage = Range("AE1").Text
ActiveSheet.PivotTables("Project1").PivotFields("Agent").CurrentPage = Range("AE1").Text
End With
End Sub
-------------------- This one woks fine
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
ActiveSheet.PivotTables("Actual1").PivotFields("Building_COID").CurrentPage = Range("AB1").Text
ActiveSheet.PivotTables("Budget1").PivotFields("Bud coid").CurrentPage = Range("AB1").Text
ActiveSheet.PivotTables("Project1").PivotFields("Bldg").CurrentPage = Range("AB1").Text------ Problem here
End With
End Sub
--------------This one has the problem