Macro Not Running Via Shortcut Keys

[ashleyhkim]

The following macro works when I run using Alt+F8+Enter
The macro also works when it is linked to a button on the worksheet.
However, it does not work when I try to use the keyboard shortcut Ctrl+Shift+P.
I've tried adding the shortcut key code into the macro -- still doesn't work.
I've tried changing the shortcut key to a different letter -- still doesn't work.
Please help. Thank you!!

Sub Expense()
' Keyboard Shortcut: Ctrl+Shift+P
'
    Application.Goto Reference:="G"
    SendKeys "{F2}"
End Sub

Sub Expense()
' Keyboard Shortcut: Ctrl+Shift+P
'
    Application.Goto Reference:="G"
    SendKeys "{F2}"
    Application.MacroOptions Macro:="Expense", ShortcutKey:="P"
End Sub