auto entering date and time

Here is a macro solution. There are some potential problems I foresee using it. Nothing will happen if they don't put a Y in those columns.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B,E:E,H:H")) Is Nothing Then
    If UCase(Target.Value) = "Y" Then
        Application.EnableEvents = False
        Target.Offset(, 1).Value = Date
        With Target.Offset(, 2)
            .Value = Now
            .NumberFormat = "hh:mm"
        End With
        Application.EnableEvents = True
    End If
ElseIf Not Intersect(Target, Range("C:C,D:D,F:F,G:G,I:I,J:J")) Is Nothing Then
    With Application
        .EnableEvents = False
        .Undo
        .EnableEvents = True
    End With
    MsgBox "That cell cannot be edited"
End If

End Sub

Hi Lloyd,

Find the attached with this code behind sheet1, that does what I think you want.

Private Sub Worksheet_Change(ByVal Target As Range)
    If UCase(Target.Text) = "Y" Then
        If Not Intersect(Columns("B"), Target) Is Nothing Then
            Cells(Target.Row, "C") = Date
            Cells(Target.Row, "D") = Time
        End If
        
        If Not Intersect(Columns("E"), Target) Is Nothing Then
            Cells(Target.Row, "F") = Date
            Cells(Target.Row, "G") = Time
        End If
        
        If Not Intersect(Columns("H"), Target) Is Nothing Then
            Cells(Target.Row, "I") = Date
            Cells(Target.Row, "J") = Time
        End If

    End If
End Sub