Hi All

I have two slicer interconnected slicer ( Region & Country). I want to copy both slicer data to cell, When I selected Region data is correctly copy to Cells (only selected data copied) however its not working country with respective country not selecting

Here is my code

Public Sub Set_Region_CTRY()
Dim I As Integer
Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.SlicerCaches("Slicer_REGION")
Dim sItem As Excel.SlicerItem
I = 16
For Each sItem In cache.SlicerItems
If sItem.Selected = True Then
Cells(8, I) = sItem.Value
I = I + 1
End If
Next sItem
I = 16
Set cache = ActiveWorkbook.SlicerCaches("Slicer_CTRY")
Dim sItem1 As Excel.SlicerItem
For Each sItem1 In cache.SlicerItems
If sItem1.Selected = True Then
Cells(9, I) = sItem1.Value
I = I + 1
End If
Next sItem1

End Sub

Please help me

Thanks