Changing Cell color?

Hi,

I have a code that check the String on the cell! But if it is wrong i wanna make the cell Red colored?

If Selection.Cells(x, 14) <> "A" And Selection.Cells(x, 14) <> "B" And Selection.Cells(x, 14) <> "C" And Selection.Cells(x, 14) <> "D" And Selection.Cells(x, 14) <> "L" And Selection.Cells(x, 14) <> "N" And Selection.Cells(x, 14) <> "S" And Selection.Cells(x, 14) <> "T" Then
    MsgBox "Type is False! You have to change it! " & "Place: Selected Row: " & x & " Column: 14 (N)"
    GoTo Einde
    End If

Thanks