エクセルマクロについて教えて下さい。

下記のような条件付き書式のマクロを使用してみたんです、
マクロの動作はこれで問題ないんですが、
A列は文字を入力してしまうと、
ショートカットのやり直し「CTRL+Z」が効きません。。
これはどうしようもないんでしょうか？　それともやり直しが効くようにする
書き方があるんでしょうか？

---------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intColor As Integer
Dim celcolor As Integer

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

Select Case Target.Value

Case Is = "あ"
intColor = 1
celcolor = 2
Case Is = "い"
intColor = 1
celcolor = 2
Case Is = "う"
intColor = 1
celcolor = 3
Case Is = "え"
intColor = 1
celcolor = 4
Case Is = "お"
intColor = 1
celcolor = 5
End Select

Target.Font.ColorIndex = intColor
Target.Interior.ColorIndex = celcolor
End Sub
----------------