Right click sheet tabview codeinsert this. Now when you select ANY cell it
will show in d1. SO, you may want to restrict by using the second one
instead.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1").Value = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
Range("d12").Value = Target
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"dh13134" wrote in message
...
hi
is there a function that can display the content of whatever cell my
cursor
is currently in? for example, A1="Dog", A2="Cat", and A3="Horse". i want
cell
D1 to display "Dog" when my cursor is in cell A1, "Cat" when i move my
cursor
to A2, and "Horse" when i move my cursor to A3......
thanks
--
dh13134