ok, so you need to add this `Item`. Item[KeyEvent["t", Modifiers -> {Control}], FrontEndExecute[ FrontEnd`NotebookApply[FrontEnd`InputNotebook[], RowBox[{"foo", "[", "\[SelectionPlaceholder]", "]"}]]; FrontEnd`SelectionMove[FrontEnd`InputNotebook[], All, Expression, 2]; FrontEnd`SelectionEvaluate[FrontEnd`InputNotebook[]] ] ] ###Usage >![enter image description here][1] Select what you need >![enter image description here][2] Use <kbd>Ctrl</kbd>+<kbd>t</kbd> >![enter image description here][3] ###Ref: Here is a tutorial how to add a new shortcut: [Automating Esc \[\[ Esc formatting?](http://mathematica.stackexchange.com/q/5212/5478) [1]: https://i.sstatic.net/nJ69h.png [2]: https://i.sstatic.net/6Bzsi.png [3]: https://i.sstatic.net/SPP2s.png