Hey,
try this change event macro in the sheet module:
-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 2
If Target.Offset(0, -1).Value "" Then
Target.Offset(0, 1).Value = Format(Now(),
"mm/dd/yyyy")
Else
Target.Offset(0, 1).Value = ""
End If

End Select
End Sub
----------------------------------------
Ben


--
protonLeah
------------------------------------------------------------------------
protonLeah's Profile: http://www.excelforum.com/member.php...o&userid=32097
View this thread: http://www.excelforum.com/showthread...hreadid=535390