Extract selected text value on a slicer

[MANICX100]

Assuming I do not allow multi select on a slicer e.g.

Option 1
Option 2

How could I extract the text e.g. Option 2 if selected into a cell.

A quick Google wants either PowerBI / Pivot which is incompatible with my current worksheet setup.

 

[Domenic]

The following code assumes that the workbook running the code contains the slicer, and it assumes that the slicer name (right-click slicer > Slicer Settings > Name to use in formulas) is "Slicer_SlicerName". Change the name accordingly.

Note, even though you don't allow multi-select, it's still possible to select more than one item by holding down the Ctrl key and then clicking on other items. So the code checks whether more than one item is visible. If so, it exits the sub. You may want to change this behaviour accordingly.

    With ThisWorkbook.SlicerCaches("Slicer_SlicerName") 'change the slicer name accordingly
   
        If .VisibleSlicerItems.Count > 1 Then Exit Sub
       
        Dim itm As SlicerItem
        For Each itm In .SlicerItems
            If itm.Selected = True Then
                Worksheets("Sheet1").Range("B2").Value = itm.Name 'change the cell destination accordingly
                Exit For
            End If
        Next itm
       
    End With

Hope this helps!