Word VBA: assign shortcut keys to sub???

[tinfanide]

Sub textHighlighter()

Selection.range.HighlightColorIndex = wdYellow

End Sub

I want to assign shortcut keys to this sub


when I highlight texts, just press the key to do the effect

I have tried

Application.OnKey "', ""

But doesn't work at all.
I mean thru VBA, not thru using the Macro Menu.
Thanks in advance.

[macropod]

See: http://www.officekb.com/Uwe/Forum.as...keys-using-VBA

[tinfanide]

Yes, I got the codes and knew how. Thanks very much.