As I told before, I have used the Onkey command mentioned in your link (for example, Application.OnKey "+%{R}", "macro name"). , but it doesn’t work although It doesn’t result in any runtime error. It seems The Alt key work for Word macro but not for Excel macro and user is left with just one option Ctr+shift+(key) which is limiting if you want to assign meaningful short cut to a large number of macro.(using Ctr +(key) has the risk of overwriting Excel own shortcut key. Even the short cut is not case-sensitive)