Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <> 11 Or c.Count > 1 Then Exit Sub
If c.Value = "Retard" Then
c.EntireRow.Interior.ColorIndex = 3
Else
c.EntireRow.Interior.ColorIndex = xlNone
End If
End Sub