Marcar ubicación del cursor

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Value = ActiveCell.Address
End Sub
Entra al editor de visual basic
Da doble click en la hoja2
Y pega este código
En la celda a1 de la hoja 2 aparecerá la dirección del cursor

Gracias Bar,
No es lo que necesito, a lo mejor no me exprese bien.
Lo que necesito es: Ej. si el cursor está en (j27) que toda la columna hasta la fila 27 y toda la fila hasta la columna j, sean marcadas ya sea con un carácter o color.
Espero haber expresado bien mi necesidad,
Desde ya muchas gracias,
Saludos,
(xxxxxx)

Ok
Editor de Vb
Da Doble clicken lahoja 1
Y pega este código
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Interior.ColorIndex = 3
End Sub
La celda donde se desplace elcursor se pintara de rojo.

Gracias por tu paciencia hacia conmigo,
El código solo pinta la celda ("A1").
Podrías hacer otro intento y no te molesto más .(sobre este tema por supuesto).
Un Abrazo desde Chile.
(xxxxxx)