This should do it for you
Code:
--------------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Application.Volatile
Cells(1, 1) = Target.AddressLocal
End Sub
--------------------
--
bgeier
------------------------------------------------------------------------
bgeier's Profile:
http://www.excelforum.com/member.php...o&userid=12822
View this thread:
http://www.excelforum.com/showthread...hreadid=546128