Pentru hakerii in VBA

Buna. Vreau sa fac hotkey in VBA si nu mi se primeste, ma ajutata cineva.Versiunea mea:::::::::::::::Public Sub Auto_Open() With Application .OnKey "^o", "Dummy" .OnKey "^s", "NewAction" .OnKey "^р", "" End WithEnd Sub ' -----Public Sub Dummy() MsgBox "This hotkey redefined!"End Sub ' -----Public Sub NewAction() SendKeys "^n" ' Press + for create new file ' instead of + !End Sub