Assign customized shortcut to a marco in worksheet not module

[Vincent88]

I have the following script to put in sheet not module. The marco works when I run by press ATL F8 but not the shortcut (received error). How can I modify it to make it to run with shortcut key as well.

Sub CreateShortcutMsg ()
Application.OnKey "^{98}", OpenOutlookTemplate"

End Sub

Sub DeleteShortcutMsg ()
Application.OnKey "^{98}", OpenOutlookTemplate"

End Sub

Sub OpenOutlookTemplate()
If ActiveWorkbook Is ThisWorkbook Then

Dim myoutapp As Object
Dim myitem As Object
Set myoutapp = CreateObject("Outlook.Application")
Set myitem = myoutapp.CreateItemFromTemplate("C:\Users\vincentszeto\Desktop\MrExcel.msg")
myitem.Display
End If

End Sub

Error when press the shortcut key

 

[RoryA]

Why is the code in a worksheet module? It really doesn't belong there.

Anyway, you need to include the codename of the sheet in the macro name - eg:

Sub CreateShortcutMsg()
Application.OnKey "^{98}", "Sheet1.OpenOutlookTemplate"

End Sub

Sub DeleteShortcutMsg()
Application.OnKey "^{98}"

End Sub

Note also the amendment to the code to reset the shortcut.