Clicking slicers is hiding shapes, how to solve?

[thousand]

I have a workbook with slicers and shapes, the below works perfectly to hide and unhide the shapes

However, when the slicer is clicked it will also trigger the macro (hide and unhide shapes) is there any clever way to solve this?

Thanks

Sub instructions()
Dim obj As Shape
Set obj = ActiveSheet.Shapes("Oval callout 1")
If obj.Visible Then
    obj.Visible = False
Else
    obj.Visible = True
End If
End Sub