Estou criando um suplemento do Excel usando o Visual Studio 2010. Eu gostaria de executar algum código quando os usuários clica em uma combinação de chaves.

Aqui está o código que eu tenho

<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>

O suplemento quando instalado mostra um erro ao clicar nos atalhos. Diz que a macro específica não pode ser encontrada. O código sob oSub EnableShortCut() funciona bem quando está em um módulo excel vba. O mesmo não funcionará quando for adicionado a um suplemento do Excel criado com o Visual Studio. Alguém lá fora, por favor, me ajude a resolver esse problema.