If a value is entered in column "a" then column "b" will have the date &
time inserted. Paste this code in the worksheet module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 1) = Format(Date, "m/d/yy h:mm;@")
End If
End Sub

--
Regards,
Rocky McKinley


"auto pick date & time as i enter name" wrote
in message ...
i want to do that as i enter any name in a cell and press enter its
automaticly collect the date and time from system to next cell how can i
do this plz help me !! thankx