Actually Zack I've figured it out
After fiddling with some code and changing "=" to "Like" it works

What I haven't figured out yet is how to creat a "basket" somewhere in
the top lines of the code where I can simply add the new text

Hein

PS
The code:


Code:
--------------------

Dim C as Range

For each C in selection.cells
if C like "DQ" or C like "*DQ*" then
C.interior.colorindex = 6
C.interior.pattern = xlSolid
end if
next C
end sub

--------------------


--
Hein
------------------------------------------------------------------------
Hein's Profile: http://www.excelforum.com/member.php...o&userid=24744
View this thread: http://www.excelforum.com/showthread...hreadid=532384