I've used this code before I thought, but not working now with a Watch
on B6 [cell]:

If Target.Address = "$B$6" Then
Application.EnableEvents = False
If Target.Value = "Project-Cost Sizing" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select
Else
If Target.Value = "Project-Cost & Go" Then
Range("B16:C17").Select
Selection.Interior.ColorIndex = 1
Range("B18:C19").Select
Selection.Interior.ColorIndex = 1
Range("B20:C20").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select

Else
If Target.Value = "Consulting-M&A" Then
Range("B16:C17").Select
Selection.Interior.ColorIndex = 1
Range("B18:C19").Select
Selection.Interior.ColorIndex = 1
Range("B20:C20").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select
Else
If Target.Value = "Consulting-DEFINE" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 0
Range("B33:C33").Select
Selection.Interior.ColorIndex = 0
Range("B6").Select
Else
If Target.Value = "[select from list]" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select

End If
End If
End If
End If
End If
End If