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