Combo Box (Form Control) With Macro On A Graph Sheet

Has to be a Form control, ActiveX controls are not supported, on chart sheets.

Assign a macro to the combo box and within it determnine the action to take based on the value.
This is for an combo with 3 list items.

Sub DropDown1_Change()

    Dim shpTemp As Shape
    
    Set shpTemp = ActiveSheet.Shapes(Application.Caller)
    Select Case shpTemp.ControlFormat.Value
    Case 1
        MsgBox "You chose " & shpTemp.ControlFormat.List(1)
    Case 2
        MsgBox "You chose " & shpTemp.ControlFormat.List(3)
    Case 3
        MsgBox "You chose " & shpTemp.ControlFormat.List(2)
    End Select
End Sub