Bienvenido a Foros del web...
Código:
'Creamos una variable
celda = ActiveCell.Address
'Para ver el resultado en A1...
Range("A1") = celda
'Si no queremos una referencia absoluta...
celda = Replace(ActiveCell.Address, "$", "")
'y mostramos el resultado en A2
Range("A2") = celda
'hacemos una donación a 3pies a través de Paypal :-) Salu2