Excel swap estilo de referencia entre R1C1 y A1

 Sub ChangeCellRef()
 If Application.ReferenceStyle = xlA1 Then
 Application.ReferenceStyle = xlR1C1
 Else
 Application.ReferenceStyle = xlA1
 End If
 End Sub
Sleepy Starling