VBA - Slicers

[thomas819]

Hello all,
I would like to create macro with this function.
I have pivot table which contains two slicers.
Values from pivot table are in range C3:C6
When I selected a any item from 1.slicer except ("Manufacture"), I need reset 2.slicer (ClearManualFilter) and hide 2.slicer.
When I will select from 1.slicer item "Manufacture", I need also reset 2.slicer (ClearManualFilter) and show 2.slicer.

My train of thoughts is as follow:

Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C3:C6")) Is Nothing Then
        If ActiveWorkbook.SlicerCaches("1.slicer").VisibleSlicerItemsList = Array("[source].[Name].&[Manufacture]") Then
            ActiveWorkbook.SlicerCaches("2.slicer").ClearManualFilter
            ActiveWorkbook.SlicerCaches("2.slicer").Show    'I dont know sorrect syntax for this purpose
        Else
            ActiveWorkbook.SlicerCaches("2.slicer").ClearManualFilter
            ActiveWorkbook.SlicerCaches("2.slicer").Hide    'I dont know sorrect syntax for this purpose
        End If
    End If
End Sub

For some reason I always got error for mismatch.

I will appreciate any help
Thank you in advance.