【マクロ・VBA】指定した範囲の表示形式を文字列や標準に変換する

Sub 表示形式を変換する() 
    Dim iRow            As Long     '// 行位置
    Dim iCol            As Long     '// 列位置
    Dim iRowMax         As Long     '// 行数
    Dim iColMax         As Long     '// 列数
    Dim sFormatBefore   As String   '// 現在表示形式
    Dim sFormatAfter    As String   '// 変換後表示形式
    
    '// 現在の表示形式を取得
    sFormatBefore = ActiveCell.NumberFormatLocal
    
    '// 標準の場合は文字列に変換
    If (sFormatBefore = "G/標準") Then
        sFormatAfter = "@"
    '// 文字列の場合は標準に変換
    ElseIf (sFormatBefore = "@") Then
        sFormatAfter = "G/標準"
    End If
    
    '// 変換後の表示形式を設定
    Selection.NumberFormatLocal = sFormatAfter
    
    '// 表示形式が文字列以外はここで処理を終了する
    If (sFormatAfter <> "@") Then
        Exit Sub
    End If
    
    '// 行位置、列位置、行数、列数を取得
    iRow = Selection.Row
    iCol = Selection.Column
    iRowMax = iRow + Selection.Rows.Count - 1
    iColMax = iCol + Selection.Columns.Count - 1
    
    '// 選択セル範囲を列ごとにループ
    For iCol = iCol To iColMax
        If (Range(Cells(iRow, iCol), Cells(iRowMax, iCol)).Text <> "") Then
            '// 区切り位置設定
            Call Range(Cells(iRow, iCol), Cells(iRowMax, iCol)).TextToColumns
            'Range("C3").Formula = "=INDEX(F3:F8, MATCH(B3, E3:E8))"
        End If
    Next
    
MsgBox "完了"
End Sub