Watch not working

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
 
J

Joel

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Watch not working for action on other cells 1
PrintTitleRows 2 9
Macro Continuous Execution 8
Search for Values part2 2
Macros will not work when sheet e-mailed 4
conditional format macro not working - almost there 3
Basic help 14
colorindex = xlnone on condition of month of year 8

Top