セルの文字を変換、小文字大文字、半角全角、ひらがなカタカナ

'***************************************
'* セルの文字を変換、小文字大文字、半角全角、ひらがなカタカナ
'* rng：変換したいセル
'* myType：変換後の種類
'***  値  定数          説明
'***  1   vbUpperCase   小文字を大文字に変換する
'***  2   vbLowerCase   大文字を小文字に変換する
'***  3   vbProperCase  各単語の先頭を大文字､2文字目以降を小文字に変換する
'***  4   vbWide        半角文字を全角文字に変換する
'***  8   vbNarrow      全角文字を半角文字に変換する
'***  16  vbKatakana    ひらがなをカタカナに変換する
'***  32  vbHiragana    カタカナをひらがなに変換する
Private Sub RangeStringConvert(rng As Range, myType As Long)
    Dim i As Long
    For i = 1 To rng.Count
        rng(i) = StrConv(rng(i), myType)
    Next i
End Sub

Sub 使用例()
    ' 選択したセルを、大文字半角に変換
    ' vbUpperCase（大文字）とvbNarrow（半角）を合計することで、2種類の変換が一度に可能
    Call RangeStringConvert(Selection, vbUpperCase + vbNarrow)
End Sub