enter 1 in a cell and it enters static date in next...Have this working in
one column with the following but need to have it work in columns Y:Y and
AA:AA also any one know how?

Private Sub Worksheet_General(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("U:U")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = 1 Then
Target.Offset(0, 1).Value = Date
End If
Application.EnableEvents = True
End If
End Sub