No me he enterado mucho de lo que quieres hacer, pero aquí te dejo un ejemplo, para saber la celda en la que estamos (referencia absoluta y relativa), y también la fila, y la columna:
Código:
Sub prueba()
dato = ActiveCell.Address
'si no quieres tener una referencia absoluta, como por ejemplo $A$33,
'pon esta línea que viene a continuación
dato_temporal = Replace(dato, "$", "")
'escribamos algunas cosillas debajo de la celda activa...
ActiveCell = dato_temporal 'referencia relativa
ActiveCell.Offset(1, 0) = dato 'referencia absoluta
'eliminamos el primer caracter de la referencia absoluta (el primer $)
dato = Mid(dato, 2)
fila_y_columna = Split(dato, "$")
ActiveCell.Offset(2, 0) = fila_y_columna(0) 'fila
ActiveCell.Offset(3, 0) = fila_y_columna(1) 'columna
End Sub
Espero que te sirva.
Salu2