Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect([N2:N100], T) Is Nothing Then
If T Like "ok" Then
Cells(T.Row, 1).Resize(, 16).Interior.Color = RGB(125, 241, 69)
Else
Cells(T.Row, 1).Resize(, 16).Interior.Color = xlNone
End If
End If
End Sub