Private Sub Worksheet_Change(ByVal Target As Range) Set MyPlage = Range("B13:I50") For Each Cell In MyPlage Select Case Cell.Value Case Is = "Withdrawn" Cell.EntireRow.Interior.ColorIndex = 7 Case Is = "Postponed" Cell.EntireRow.Interior.ColorIndex = 8 Case Is = "Terms Agreed" Cell.EntireRow.Interior.ColorIndex = 4 Case Is = "Papers Rec" Cell.EntireRow.Interior.ColorIndex = 3 Case Else Cell.EntireRow.Interior.ColorIndex = xlNone End Select Next End Sub
Thanks for a swift response!