For Each cell In Selection
Select Case cell.Value
Case "Brown" : cell.Interior.Colorindex=5
Case "Jones" : cell.Interior.Colorindex= 3
Case "Pearson" : cell.Interior.Colorindex=10
'etc
End Select
Next cell
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
Hi Nick,
How do you want to relate Search to coloring them by their name.
Your other replies provided suggestions for coloring up to three names.
Beyond that you would have to use a macro http://www.mvps.org/dmcritchie/excel/event.htm#case