How to get Shape name based on user selection (As a variant)

[tolanio]

Hello everyone,
First time being on this forum. I am an avid user of VBA especially with Excel and Visio. I don't know if this has been asked yet but i need help in grabbing the name or id of a user selected shape, in an active powerpoint slide. I want to display a message in case a user clicks a particular shape, with names "Increase" or "Reduce". I set up my code in a SELECT CASE format and i am trying to capture the selected shape as a variant and assign it to my shape object, however i don't get any results. Here is my code. Please and thank you

Sub determineShapeType()
    Dim osld As Slide
    Dim slideNum As Integer
    Dim Userselection As Variant
    Dim oshp As Shape
    osld = ActivePresentation.SlideShowWindow.View.Slide
    Set Userselection = ActiveWindow.Selection.Shaperange
    Set oshp = osld.Shapes(Userselection.Name)
    Select Case oshp.Name
        Case "Increase"
            MsgBox " You have increased your speed"
            ' Something else
        Case "Reduce"
            MsgBox "You have decreased your speed"
            ' Something else
    End Select
End Sub