Hey DS,

Thanks! I added a Dim SelCol as single and .ColorIndex = SelCol
+20....this starts the loop at a better color.

What I still need though is to color the entire row....i tired
Range("A2").EntireRow.Selection....but that threw and error.

Any ideas?