Como saber en que celda se encuentra el cursor

Selection.Address

"Fer" escribió en el mensaje
news:

Hola:

¿Existe alguna manera de saber en que celda se encuentra el cursor, por
medio de programación, esto es que me devuelva "A1" ?

Manuel,
Creo q tu metodo no funciona si la seleccion contiene celdas multiples.

Fer,
Si necesitas saber q celda se esta editando o esta seleccionada para la
edicion, entonces podrias utilizar ActiveCell.Address, p.ej.:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
MsgBox ActiveCell.Address
End Sub

En cambio, si necesitas detectar la posicion del cursor mientras esta
flotando por encima de las celdas (o sea q no se esta editando o
seleccionando ninguna celda) parece q no es posible. Por lo q he encontrado
en la web solo es posible detectar la posicion del cursor en pixeles. Abajo
te pongo el codigo q he encontrado y he probado.

Saludos,
KL

'-Inicio Codigo--
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long

Type POINTAPI
X As Long
Y As Long
End Type

Sub ShowPos()
Dim lRetVal As Long
Dim Pos As POINTAPI
lRetVal = GetCursorPos(Pos)
MsgBox Pos.X & " : " & Pos.Y
End Sub

'-Fin Codigo--



"Manuel Romero" @hotmail.com> wrote in message
news:%

Selection.Address

"Fer" escribió en el mensaje
news:

Hola:

¿Existe alguna manera de saber en que celda se encuentra el cursor, por
medio de programación, esto es que me devuelva "A1" ?