N Harkawat wrote...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1) = ActiveCell.Value
End Sub
...

Quibble: this would only work within a particular worksheet, not within
the entire document/workbook. Workbook_SheetSelectionChange would be
more appropriate.


--
hgrove
------------------------------------------------------------------------
hgrove's Profile: http://www.excelforum.com/member.php...o&userid=11432
View this thread: http://www.excelforum.com/showthread...hreadid=319888