Putting hat character by macro code

[yken]

Hi!
I want to put a hat character on some letters that next to the cursor. For example:
If the letter next to the cursor is small "a" then replace it for "â", If the letter next to the cursor is capital "A" then replace it for "Â" . Here is the others:
CASES:
i---> î
I---> Î
u---> û
U---> Û

Thanks ...

Yken

[HansV]

Try this macro:

Sub AddHat()
  Dim rng As Range
  Set rng = Selection.Range
  If Len(rng.Text) = 0 Then
	rng.MoveStart Count:=-1
	Select Case rng.Text
	  Case "a"
		rng.Text = "â"
	  Case "e"
		rng.Text = "ê"
	  Case "i"
		rng.Text = "î"
	  Case "o"
		rng.Text = "ô"
	  Case "u"
		rng.Text = "û"
	  Case "A"
		rng.Text = "Â"
	  Case "E"
		rng.Text = "Ê"
	  Case "I"
		rng.Text = "Î"
	  Case "O"
		rng.Text = "Ô"
	  Case "U"
		rng.Text = "Û"
	End Select
  End If
  Selection.Move Count:=1
End Sub

[yken]

Thank you very much!

Yken