Icolor, target,range

Hi Scott

The code below looks at text in column B of a workbook and whatever text it finds it colours the adjacent cell in column A either Green, Red or leaves the cell Uncoloured if the words don't match.

Sub ColourFormatByText()

Dim intCounter As Integer

For intCounter = 2 To 20

Select Case Cells(intCounter, 2).Value

Case "Hello"
Cells(intCounter, 1).Interior.ColorIndex = 3

Case "Goodbye"
Cells(intCounter, 1).Interior.ColorIndex = 4

Case Else
Cells(intCounter, 1).Interior.ColorIndex = xlNone

End Select

Next intCounter

End Sub

I have attached a Workbook so you can see the code at work

Hope this helps

Carlos