Como agregar funciones al menú emergente de Excel

Código XML:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <contextMenus>
    <contextMenu idMso="ContextMenuCell">
      <menu id="MySubMenu" label="EXCELeINFO con XML" insertBeforeMso="Cut"  >
       <button id="btn1" label="Prueba 1" imageMso="E" onAction="Macro1"/>
       <button id="btn2" label="Prueba 2" imageMso="X" onAction="Macro2"/>
       <button id="btn3" label="Prueba 3" imageMso="C" onAction="Macro3"/>
       <button id="btn4" label="Prueba 4" imageMso="E" onAction="Macro4"/>
       <button id="btn5" label="Prueba 5" imageMso="L" onAction="Macro5"/>
        <menuSeparator id="MySeparator2" insertBeforeMso="Cut" />
       <button id="btn6" label="Prueba 6" imageMso="ConstrainNumeric" onAction="Macro6"/>
</menu>
<menuSeparator id="MySeparator" insertBeforeMso="Cut" />
    </contextMenu>
  </contextMenus>
</customUI>

Código VBA:

Public Const Titulo = "EXCELeINFO"

Sub Macro1(control As IRibbonControl)
    MsgBox "Macro 1", vbInformation, "Titulo"
End Sub

Sub Macro2(control As IRibbonControl)
    MsgBox "Macro 2", vbInformation, "Titulo"
End Sub

Sub Macro3(control As IRibbonControl)
    MsgBox "Macro 3", vbInformation, "Titulo"
End Sub

Sub Macro4(control As IRibbonControl)
    MsgBox "Macro 4", vbInformation, "Titulo"
End Sub

Sub Macro5(control As IRibbonControl)
    MsgBox "Macro 5", vbInformation, "Titulo"
End Sub

Sub Macro6(control As IRibbonControl)
    MsgBox "Macro 6", vbInformation, "Titulo"
End Sub