How to disable Multi-selection thing in slicer.

Question

Hello,
I am using Slicer in Excel Sheet and i want to disable Multi-selection thing in slicer.
Is it possible to throw an exception or doesn't allow to do a multiple selection in excel slicer using VBA or without?
Quick help ll be appreciated  :)
Thanks & regards,
Gaurav Badhani.

Answer 1

Thanks for your reply,
I used below given code and it's working and i put this code on ThisWorkbook and calling on
 Workbook_SheetCalculate
Workbook_SheetSelectionChange
it's working fine but whenever i am selecting slicer value using CTRL key this code is not excuting coz system is not able to call events
Kindly help me with the events or code coz i am using CTRL key for multi selection and whenever i am using CLRL key it's not working
Please find below given code
 Dim scl As SlicerCacheLevel
    Dim oSlicer As Slicer
    Dim i As SlicerCaches
    Set i = ActiveWorkbook.SlicerCaches
    Dim oSi As SlicerItem
    Dim ItemsAllowed As Integer
    Dim cntItems As Integer
    ItemsAllowed = 1
    cntItems = 0
    Application.EnableEvents = False
    For Each oSi In ActiveWorkbook.SlicerCaches("Slicer_RC_Description").SlicerItems
         If oSi.Selected Then cntItems = cntItems + 1
        If cntItems > ItemsAllowed And oSi.Selected Then
            oSi.Selected = False
            MsgBox "Please select only one item"
            Application.EnableEvents = True
            Exit Sub
        End If
    Next oSi
Also tell me what event i should use for ur code or how can i use code using CTRL key
Thanks & Regards,
Gaurav Badhani
A