Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 Then
Target.Value = Format(Date, "dd mmm yyyy")
End If

End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.



--
HTH

Bob Phillips

"coconutt" wrote in message
...
I am curious if their is a way to insert a date automatically in a field
each
time the field is entered. ei. my A collum is a date collum and each line
needs a date.

Thanks