add colour to row(s)

[Trevor3007]

hi


have this code :-

  Dim Changed As Range, Cell As Range  
  Set Changed = Intersect(Target, Range("m2:k300"))
  If Not Changed Is Nothing Then
    For Each Cell In Changed
      If UCase(Cell.Value) = "YES" Then
        Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = 35
      Else
        Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = xlNone
      End If
    Next Cell
    
       
  End If
  end sub

which works ok...but I need to include the following:-

If UCase(Cell.Value) = "EU" Then
Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = 40

If UCase(Cell.Value) = "issue" Then
Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = 39

If UCase(Cell.Value) = "BIP" Then
Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = 4

If UCase(Cell.Value) = "LM" Then
Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = 15


I have tried to sort but cannot :{

Thank you for your help.
KR
Trevor 3007

 

[Fluff]

How about

 Dim Changed As Range, Cell As Range
 Dim Clr As Long
  Set Changed = Intersect(Target, Range("m2:k300"))
  If Not Changed Is Nothing Then
    For Each Cell In Changed
       Select Case LCase(Cell.Value)
         Case "yes":       Clr = 35
         Case "no":        Clr = 40
         Case "issue":     Clr = 39
         Case "bip":       Clr = 4
         Case "lm":        Clr = 4
         Case Else:        Clr = xlNone
      End Select
      Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = Clr
    Next Cell
  End If

 

[Trevor3007]

How about

 Dim Changed As Range, Cell As Range
 Dim Clr As Long
  Set Changed = Intersect(Target, Range("m2:k300"))
  If Not Changed Is Nothing Then
    For Each Cell In Changed
       Select Case LCase(Cell.Value)
         Case "yes":       Clr = 35
         Case "no":        Clr = 40
         Case "issue":     Clr = 39
         Case "bip":       Clr = 4
         Case "lm":        Clr = 4
         Case Else:        Clr = xlNone
      End Select
      Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = Clr
    Next Cell
  End If

FANTASTIC...

thank you ...

 

[Fluff]

You're welcome & thanks for the feedback