EXCEL VBA 選択範囲を全角・半角にする

Sub 半角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbNarrow)
Next SR
End Sub

Sub 全角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbWide)
Next SR
End Sub