Assign a keyboard shortcut to a special character

We often want to insert "true" minus signs in paragraph or artistic text. I have lashed together this code:

Sub InsertMinus()

On Error Resume Next
ActiveShape.Text.Selection.Replace Text:=ChrW(8722)

End Sub

But this only works if one is editing in the drawing window. I'd prefer to be able to create a "universal" keyboard shortcut for the minus sign that also works in the Edit Text window.

I've experimented with QuickCorrect but this seems awkward and doesn't allow me to use keyboard combinations we've already established for use in Word.

Any clues?

Bear

[knowbodynow]

Hi, why not use something like AutoHotKey?

http://www.autohotkey.com/
http://lifehacker.com/software/keybo...key-159785.php

Chris