Попытка синхронизации слайсеров: ошибка времени выполнения 438

Question

Попытка синхронизации двух слайсеров из двух разных источников данных. Я буду использовать первый слайсер, чтобы изменить вид нескольких графиков. Поле из разных источников данных одинаково с одинаковыми значениями. Я новичок в VBA, поэтому просто учусь этому.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

    'Declaring variables
    Dim sc1 As SlicerCache
    Dim sc2 As SlicerCache
    Dim SI1 As SlicerItem

    'These names come from Slicer Settings dialog box
    Set sc1 = ThisWorkbook.SlicerCaches("Slicer_Customer_Region1")
    Set sc2 = ThisWorkbook.SlicerCaches("Slicer_Customer_Region2")

    'make the macro faster
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    'Clearing filters to mirror sc1
    sc2.ClearManualFilter

    'Getting error here
    For Each SI1 In sc1.SlicerItems
    sc2.SlicerItems(SI1.Customer_Region).Selected = SI1.Selected 
    Next SI1

    'make the macro faster
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub