Estoy creando un complemento de Excel con Visual Studio 2010. Me gustaría ejecutar algún código cuando los usuarios hacen clic en una combinación de teclas.

Aquí está el código que tengo

<code>Public Class CC

Private Sub ThisAddIn_Startup() Handles Me.Startup
    EnableShortCut()
End Sub

Sub A1()
    MsgBox "A1"
End Sub

Sub A2()
    MsgBox "A2"
End Sub

Sub A3()
    MsgBox "A3"
End Sub

Public Sub EnableShortCut()
    With Application
        .OnKey "+^{U}", "A1"  'action A1 should be performed when user clicks  Ctrl + Shift + U
        .OnKey "+^{L}", "A2"  'action A2 should be performed when user clicks  Ctrl + Shift + L
        .OnKey "+^{P}", "A3"  'action A3 should be performed when user clicks  Ctrl + Shift + P
    End With
End Sub

End Class
</code>

El complemento cuando se instala muestra un error al hacer clic en los accesos directos. Dice que no se puede encontrar la macro específica. El código bajo elSub EnableShortCut() Funciona bien cuando está en un módulo excel vba. Lo mismo no funcionará cuando se agregue a un complemento de Excel creado con Visual Studio. Alguien por ahí me ayuda a resolver este problema.