Slicer.ActiveItem (Excel)
Returns a SlicerItem object that represents the slicer button that is currently in focus for the specified slicer.
The ActiveItem property returns a SlicerItem object when the specified slicer has focus and the active control is a button within the slicer (for example, the user can navigate the buttons within the slicer with the keyboard in this state). The ActiveItem property returns Null under the following circumstances:
Dim slciteActiveItem As SlicerItem
Set slciteActiveItem = ActiveWorkbook.ActiveSlicer.ActiveItem