I would like to get this macro from MSword to work in excel. I am trying to
get excel to insert a special character while typing in a cell and keep the
curser active for the next letter. For example if I typed the word "WORD" and
I want excel to automatically insert an O, I would type W(shortcutkey for
macro function) RD
Any ideas?

I have this one for Word
Sub Epsilon()
'
' Epsilon Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=949, _
Unicode:=True
End Sub
Sub ReversedC()
'
' ReversedC Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=-343, _
Unicode:=True
End Sub
Sub TheLthing()
'
' TheLthing Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=1512, _
Unicode:=True
End Sub