Estilo de referência de troca do Excel entre R1C1 e A1
Sub ChangeCellRef()
If Application.ReferenceStyle = xlA1 Then
Application.ReferenceStyle = xlR1C1
Else
Application.ReferenceStyle = xlA1
End If
End Sub
Sleepy Starling