here's what i did and it works....I took some code i found in an earlier
message and modified it slightly.


Sheets("dbo_Corp10_Demographics_Volume_").Select

Range("A1", Range("IV1").End(xlToLeft)).Select

''''''''Rows("1:1").Select-----I replaced this line with the one above

With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid