Good old runtime error 5 question

I have also posted this problem in another forum here:
http://www.thecodecage.com/forumz/mi...post1055009266

Anyone got any ideas here is my code:

Its Breaking here:

slcCache2.VisibleSlicerItems(slcItem1.Name).Selected = slcItem1.Selected

Sub SynchSlicers3()

    Dim PT1 As PivotTable, PT2 As PivotTable
    Dim slc1 As Slicer, slc2 As Slicer
    Dim slcCache1 As SlicerCache, slcCache2 As SlicerCache
    Dim slcItem1 As SlicerItem, slcItem2 As SlicerItem
    
    Set PT1 = Sheets("Data").PivotTables("pvt_RMR_individualScoreCards") '(1)
    Set slc1 = PT1.Slicers("AccountManagerNm__IndividualScore") '(1)
    Set slcCache1 = slc1.SlicerCache


    
    Set PT2 = Sheets("Data").PivotTables("pvt_NBDayTerr_individualScoreCards") '(2)
    Set slc2 = PT2.Slicers("AccountManagerTerritoryNm_IndividualScore") '(1)
    Set slcCache2 = slc2.SlicerCache
 
    
    'On Error GoTo PT_Error
    
    slcCache2.ClearManualFilter

    For Each slcItem1 In slcCache1.SlicerItems
      If slcItem1.Selected Then
         slcCache2.VisibleSlicerItems(slcItem1.Name).Selected = slcItem1.Selected
      End If
    Next slcItem1

'PT_Error:
    'Resume Next

End Sub