In the simplest terms this would do the trick and a good starting point

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells(1, 1) = Now

End Sub

Regards

Adria

--
SandyU
-----------------------------------------------------------------------
SandyUK's Profile: http://www.excelforum.com/member.php...fo&userid=1748
View this thread: http://www.excelforum.com/showthread.php?threadid=56065