A1参照形式とR1C1参照形式の切り替え

Sub A1参照形式とR1C1参照形式の切り替え()
    With Application
        If .ReferenceStyle = xlA1 Then
            .ReferenceStyle = xlR1C1
        Else
            .ReferenceStyle = xlA1
        End If
    End With
End Sub