EXCEL便利マクロ　A列・1行の再表示

セルに列名ABC・行番号123を個別に記入して、このマクロを実行します。
ABCなら列、数字なら行を表示中なら非表示、非表示中なら再表示します。
複数混載でも順不同に出来ます。A列・1行の再表示用に作ってみました。

Sub 行列トグル表示()
'セルにABCか123数字を記入して実行
'複数選択でもOK
'A列、1行の表示・非表示が便利マクロです。
'表示中なら非表示、非表示なら表示
   Dim v As Variant
   Dim i As Long
   Dim n As Long
   '選択しているセルの数
   n = Selection.Count
   
   On Error GoTo Catch
   For i = 1 To n
       v = Selection(i).Value
       If IsNumeric(v) = True Then
           If Rows(v).Hidden = True Then
               Rows(v).Hidden = False
           Else
               Rows(v).Hidden = True
           End If
       Else
           If TypeName(v) = "String" Then
               If Columns(v).Hidden = True Then
                   Columns(v).Hidden = False
               Else
                   Columns(v).Hidden = True
               End If
           End If
       End If
   Next i
   
   Exit Sub
Catch:
   MsgBox ("中止")
End Sub