Inserimento shape e Assegnazione Macro

Ho un documento in Word 2016 nel quale ho inserito un oggetto shape con la seguente routine:

Sub SHAPESCREAZIONEControlloComboBoxInserisci ()
  Dim a as integer
   Set objShape = Selection.InlineShapes.AddOLEControl (ClassType:="Forms.ComboBox.1")
      With objShape.OLEFormat.Object
        .text="Elenco lettere"
           For a= 65 to 90
             .additem vba.ucase(vba.chr(a))
           Next a
     End With
End Sub

Vorrei solo sapere come posso modificare il codice in modo da assegnare una macro allo shape Combobox?

Non so se sono stato chiaro; voglio fare in modo che quando attivo lo shape scegliendo una lettera si attivi una routine

Originariamente facevo questa cosa nella versione di office 2003 ma con le nuove versioni di office non riesco più a modificare le barre.

Grazie per l'aiuto ed auguri di buone feste.