Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
With Target
.Offset(0, 3).Value = Day(Date)
.Offset(0, 4).Value = MonthName(Month(Date))
.Offset(0, 5).Value = Year(Date)
End With
Application.EnableEvents = True
End If
End Sub