auto entering date and time

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