Personally I would use what bill_s suggested, Ctrl+A followed by Shift+Enter.
But if you want to have one shortcut you can use what Timothy linked. Just add this line to the KeyEventTranslations.tr
file:
Item[KeyEvent["h", Modifiers -> {Control}],
FrontEndExecute[FrontEndToken[SelectedNotebook[ ], "EvaluateNotebook"]]]
it works for me.
Your infinite loop probably showed while testing on the notebook. Well, if you want to evaluate notebook and the last line is
FrontEndTokenExecute["EvaluateNotebook"]
then it will definitelly result in such loop.
EvaluateNotebook
), but it enters an infinite loop. Also there are a couple of links in answer, that are no longer available. $\endgroup$ – stathisk Sep 29 '13 at 15:02