Excel VBAでひらがなをカタカナに、カタカナをひらがなに変換するコード

'明示的な変数宣言を有効にするためのオプション。変数を事前に宣言しないとエラーが発生する。
Option Explicit

'ひらがなをカタカナに変換するためのサブルーチンの開始
Sub ひらがなをカタカナに変換()

   'ループ内で行番号を指定する整数型変数 i を宣言
    Dim i As Integer
   'セル範囲 E5 から H14 までの内容をクリア 
    Range("E5:H14").ClearContents
        
   'Sheet1" という名前のワークシートを Sh1 に代入
    Dim Sh1 As Worksheet
    Set Sh1 = ThisWorkbook.Worksheets("Sheet1")
    
   '変数 i にデータ範囲の初期値 5 を設定
    i = 5

   '3列目のデータがなくなるところまでループを継続 
    Do Until Sh1.Cells(i, 3) = ""

     'セル(i, 3)のひらがなを全角カタカナに変換し、セル(i, 5)に格納
      Sh1.Cells(i, 5) = StrConv(Sh1.Cells(i, 3), vbKatakana)
      
     'セル(i, 3)のひらがなをカタカナに変換し、更に全角を半角に変換してセル(i, 6)に格納
      Sh1.Cells(i, 6) = StrConv(Sh1.Cells(i, 3), vbKatakana + vbNarrow)
       
     '次の行に移行するためiに1をプラスする     
      i = i + 1

   'ループ条件を満たしていなければDo処理に戻る。満たしていればループ処理終了   
    Loop

'サブルーチン終了    
End Sub

Sub カタカナをひらがなに戻す()

   'ループ内で行番号を指定する整数型変数 i を宣言
    Dim i As Integer
        
   'Sheet1" という名前のワークシートを Sh1 に代入
    Dim Sh1 As Worksheet
    Set Sh1 = ThisWorkbook.Worksheets("Sheet1")

   '変数 i にデータ範囲の初期値 5 を設定    
    i = 5

   '6列目のデータがなくなるところまでループを継続     
    Do Until Sh1.Cells(i, 6) = ""
 
     'セル(i, 6)のカタカナをひらがなに変換し、セル(i, 8)に格納。   
      Sh1.Cells(i, 8) = StrConv(Sh1.Cells(i, 6), vbHiragana + vbWide)

     '次の行に移行するためiに1をプラスする     
      i = i + 1

   'ループ条件を満たしていなければDo処理に戻る。満たしていればループ処理終了    
   Loop

   'セル範囲 H5 から H14 までの全角スペースを半角スペースに変換する。
   Range("H5:H14").Replace "　", " ", xlPart

'サブルーチン終了    
End Sub