Trying to Shorten/Simplify some Code to Make it Easier to Apply To Other Workbooks

[Jim Clayton]

Hello everyone. Trying to find some help. Theattached workbook has slicers. A contributor from another forum came up with a solution that allows me to hide the irrelevant ones when not in use by treating them as shapes. It works greatfor THIS workbook, but is difficult for me to apply to OTHER workbooks that haveadditional slicers due to my limited VBA knowledge.Wondering if there's a way to simplify it.Thanks everyone for your help.Let me know if anything further is needed.

[Bob Phillips]

Maybe this

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim shp As Shape
Dim shpName As String
    
    With Me
    
        For Each shp In .Shapes
    
            shpName = shp.Name
            If shp.Type = msoSlicer Then _
                shp.Visible = Not .Parent.SlicerCaches("Slicer_" & shp.Name).SlicerItems.Item(1).Value = "N/A"
        Next shp
    End With
End Sub