Excel任意列の「全角を半角に」「大文字を小文字に」一括変換

Sub ToLowerHankaku(COL)
    'COL 列の1行目から700行目まで、
    ' 全角数字や全角アルファベットを半角になおし
    ' 大文字アルファベットを小文字になおします
    Dim i As Integer
    For i = 1 To 700
        Cells(i, COL).Value = LCase(Cells(i, COL).Value)
        Cells(i, COL).Value = StrConv(Cells(i, COL).Value, vbNarrow)
    Next i
end1:
    
End Sub

Sub main()
  ToLowerHankaku (7)
End Sub