Or maybe what you can do is copy all the values of the range that holds the
condition to be tested, use conditional formatting on the second range and
then make the values
disappear by setting the font to white.

RBS

"gtslabs" wrote in message
oups.com...
This is what I have but it still takes some time to run

showcolorindex = Cells(j, 8).Interior.ColorIndex
Cells(j, 18).Interior.ColorIndex = showcolorindex