Ｅｘｃｅｌでリアルタイムに郵便番号変換させる

Private Sub Worksheet_Change(ByVal Target As Range)
'範囲は、A2～A100 に郵便番号を入力する場合
If Intersect(Target, Range("a2:a100")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
With Target.Offset(0, 1).Validation
.Delete
.Add Type:=xlValidateInputOnly
.IMEMode = xlIMEModeHiragana
End With
If Target Like "###-####" Then
Target.Offset(0, 1).Select
SendKeys Target.Value
SendKeys "{ }"
SendKeys "{ENTER}{ENTER}"
SendKeys "{Left}"
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub





範囲を変える場合、カッコ内の("a2:a100")数値を変えればＯＫ