Private Sub Worksheet_Change(ByVal Target As Range)
Dim clr As Variant
'if more than 1 cell is changed, do nothing
If Target.Cells.Count > 1 Then Exit Sub
'if the changed cell is not in column N, do nothing
If Intersect(Target, [N:N]) Is Nothing Then Exit Sub
'determine what to do based on the value of the changed cell
Select Case Target.Value
Case Is = "item1" ' if this is the cell value
clr = 3 ' use this colorindex for the row (3=red)
Case Is = "item2" 'if this is the cell value
clr = 6 'colorindex for the row (6 = yellow)
'you can add as many cases as you need
'if the value of the cell is something other than
'the cases you specified above
Case Else
clr = xlNone 'no color (can also use -4142)
End Select
'color the row according to the case that was used
Target.EntireRow.Interior.ColorIndex = clr
End Sub