Tworzę dodatek Excel przy użyciu Visual Studio 2010. Chciałbym uruchomić jakiś kod, gdy użytkownik kliknie kombinację klawiszy.

Oto kod, który mam

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

Zainstalowany dodatek pokazuje błąd podczas klikania skrótów. Mówi, że nie można znaleźć określonego makra. Kod podSub EnableShortCut() działa dobrze, gdy jest w module excela vba. To samo nie zadziała, gdy zostanie dodane do dodatku Excel utworzonego w Visual Studio. Proszę o pomoc w rozwiązaniu tego problemu.