I think a macro is needed he-

Right click on the sheet you are using
select View Code
in the first dropdown box towards the top of the page select Worksheet
in the one to the right select selection change
then ensure the code window below displays the following code(copy and
paste the bits you need)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = 1 And ActiveCell.Column = 2 And
IsEmpty(ActiveCell.Offset(0, 1)) Then
ActiveCell.Offset(0, 1) = Now()
End If
End Sub

somethinglikeant


--
SLAnt
------------------------------------------------------------------------
SLAnt's Profile: http://www.excelforum.com/member.php...o&userid=34184
View this thread: http://www.excelforum.com/showthread...hreadid=539501