Originally Posted by
Paul_Hossler
This looks through the rows and columns
I think I matched the critera you were using
[vba]
Option Explicit
Sub Highlight_Location()
Dim rData As Range, rCol As Range, rRow As Range
Dim vCell As Variant
Dim i As Long
Set rData = ActiveSheet.Range("C4").CurrentRegion
For Each rCol In rData.Columns
For Each rRow In rCol.Cells
'ignore first row
If rRow.Row <> rData.Cells(1, 1).Row Then
If (InStr(UCase(rRow.Value), "LONDON GARDEN") > 0) Or (InStr(UCase(rRow.Value), "SMALL SITE") > 0) Then
rRow.Interior.ColorIndex = 6
Else
vCell = Split(rRow.Value, " ", -1)
For i = LBound(vCell) To UBound(vCell)
If UCase(vCell(i)) = "ROAD" Or UCase(vCell(i)) = "STREET" Then
rRow.Interior.ColorIndex = 6
Exit For
End If
Next i
End If
End If
Next
Next
End Sub
[/vba]
Paul