Watch not working

  • Thread starter Thread starter S Himmelrich
  • Start date Start date
S

S Himmelrich

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
 
This is the better way of writing this code. You don't need to "select" the
cells which may be causing the confusion

If Target.Address = "$B$6" Then
Application.EnableEvents = False
Select Case Target.Value
Case "Project-Cost Sizing"
Range("B16:C19").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1


Case "Project-Cost & Go"
Range("B16:C17").Interior.ColorIndex = 1
Range("B18:C19").Interior.ColorIndex = 1
Range("B20:C20").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1

Case "Consulting-M&A"
Range("B16:C17").Interior.ColorIndex = 1
Range("B18:C19").Interior.ColorIndex = 1
Range("B20:C20").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1

Case "Consulting-DEFINE"
Range("B16:C19").Interior.ColorIndex = 0
Range("B33:C33").Interior.ColorIndex = 0

Case "[select from list]"
Range("B16:C19").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1

End Select
End If
 
Back
Top