Как выполнить событие .Onkey в надстройке Excel, созданной с помощью Visual Studio 2010?

Я создаю надстройку Excel с помощью Visual Studio 2010. Я хотел бы запускать некоторый код, когда пользователи нажимают комбинацию клавиш.

Вот код, который у меня есть.

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

Надстройка при установке показывает ошибку при нажатии на ярлыки. Пишет, что конкретный макрос не найден. Код в Sub EnableShortCut()хорошо работает, когда он находится в модуле excel vba. То же самое не будет работать при добавлении в надстройку Excel, созданную с помощью Visual Studio. Кто-то там, пожалуйста, помогите мне решить эту проблему.