Assign shortcut to macro/module in MS-Project?

Question

Is it possible to assign a shortcut to a module/macro in MS-Project? I was trying to use this code to create a shortcut Shift+Alt+D to my macro MyMacroD

Sub shortcut_D()
        Application.OnKey "%+{D}", "MyMacroD"
End Sub

But did not seem to work or maybe I placed it in a wrong place.