This macro is using find next to look in at each cell in a range named
colorlist. Then see if there is a match in the yrorws worksheet. If so then
color it....Then do it again until there is no match. Then go on to the next
item in colorlist. You should be able to adapt to your specific need. Try
it.

Sub Colorit2()
For Each cel In [colorlist]
With Worksheets("yourws").Cells
Set c = .Find(cel, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 46
c.Font.ColorIndex = 2
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With
Next cel
End Sub

--
Don Guillett
SalesAid Software

"Nic@Rolls-Royce " wrote in
message ...
Unsure how this works..... or how to adapt...


---
Message posted from http://www.ExcelForum.com/