Style of links

Sub Stile_of_Links()
'
' Stile_of_Links Макрос
' Меняет стиль ссылок. Столбцы становятся цифрами или буквами!

If Application.ReferenceStyle = xlR1C1 Then
Application.ReferenceStyle = xlA1
Else
Application.ReferenceStyle = xlR1C1
End If
End Sub