Atrapar Nº de fila

hola, Anibal !

... como puedo atrapar a traves de codigo, el numero de fila de la celda activa
... ah!! y también atrapar solo la letra o letras de la celda activa.

un ejemplo:
______
Sub Direccion_Separada()
Dim Fila_Num As Long, Letras_Col As String
Fila_Num = ActiveCell.Row
Letras_Col = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
MsgBox "En la fila " & Fila_Num & vbCr & _
"de la columna " & Letras_Col
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.