Application.OnKey не может запустить макрос

Question

Итак, я просмотрел много других сообщений об этой самой проблеме, и все они говорят о том, чтобы поместить сабвуфер в стандартный модуль, а не в рабочий лист, который у меня есть, но я все равно получаю ошибку, как и другие.

Cannot run the macro "C:\myfile.xlsm'!SaveApp'. The macro may not be available in this workbook or all macros may be disabled.

У меня SubA SaveApp в модуле примерно так:

Public Sub SaveApp()
 ' My code lives here
End Sub

У меня есть код onkey в

Private Sub Workbook_Open()
     With Application
         .OnKey "+^s", "SaveApp" 'Ctrl+Shift+S
     End With
End Sub

Кажется очень прямым, поэтому не уверен, что я пропал.