date

[aoc]

hi,

when any cell is activated in column A I want the date to be written in the cell. example 23.may.2007

regards

[mdmackillop]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
Target.Value = Format(Date, "d.mmmm.yyyy")
End If
Application.EnableEvents = True
End Sub