Mike,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Target.Value = Date
End If
End Sub

Insert this code in the appropriate worksheet module. Change the column
number for your target column. It will insert the date just by entering the
cell.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"MIKE" wrote in message
...
is it possible to
flag a column as a date column
and when you click a cell the date AND time is
inserted ???