fry
Active Member
- Joined
- Apr 25, 2007
- Messages
- 411
Hi again all
Could someone please help me tidy up and condense the following code...
Many Thanks
P.S. Sorry for the DOUBLE post above but my puter crashed mid submit!!
Could someone please help me tidy up and condense the following code...
Code:
For r = 11 To 12
On Error Resume Next
w = WorksheetFunction.Search("boc", Cells(r, "B"))
x = WorksheetFunction.Search("a-plant", Cells(r, "B"))
y = WorksheetFunction.Search("a plant", Cells(r, "B"))
z = WorksheetFunction.Search("adlington", Cells(r, "B"))
If w > 0 Then
ActiveSheet.Tab.ColorIndex = 5
End If
If x > 0 Then
ActiveSheet.Tab.ColorIndex = 10
End If
If y > 0 Then
ActiveSheet.Tab.ColorIndex = 10
End If
If z > 0 Then
ActiveSheet.Tab.ColorIndex = 10
End If
Next
Many Thanks
P.S. Sorry for the DOUBLE post above but my puter crashed mid submit!!