This may be more useful than CF to uncolor the range and then color for
matches on the right.

Sub highlightmatches()
lr = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, 1).Resize(lr, 3).Interior.ColorIndex = 0
For i = 1 To lr
ml = Len(Cells(i, "d"))
For j = 1 To lr
If Right(Cells(j, "b"), ml) = CStr(Cells(i, "d")) Then
Cells(j, "b").Interior.ColorIndex = 6
End If
Next j
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"narp" wrote in message
...
How can I create a function that will highlight a cell in Column B if the
cell info contains the info in Column D? Info in Column D is not always
aligned with info in Column B.

A B C D
06/17/09 OR123 1.00 123
07/01/09 EC458 2.00 528
07/01/09 OR528 15.00 924
--
narp