Hi Brian

You can use the change event for this in the sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("B:B"), Target) Is Nothing Then
Target.Offset(0, -1).Value = Format(Now, "mm-dd-yy hh:mm:ss")
End If
End Sub




--

Regards Ron de Bruin
http://www.rondebruin.nl



"Brian" wrote in message
...
Howdy All,

I want the date enter in column A when data in enter in column B.
I want this date to remain constant, meaning that once it is enter as
12/4/2006, that it will not change.

Thanks,
Brian