Say the data goes in column A and we want the date automatically entered in
column B. Put this worksheet event macro in the worksheet code area:

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("A:A")
If Intersect(Target, r) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Date
Application.EnableEvents = True
End Sub

--
Gary''s Student - gsnu2007j


"Torres" wrote:


Hi,

I was wondering if there is a way to have two columns. One of them will
be filled by the user to input data. The other will display the data
entry date automatically. Obviously I know of the Today() function. But
this is no use to me as everytime I open the sheet the dates will
change.




--
Torres