Hello alymcmorland,

If you want to change the color of all the cells regardless of curren
color or content, this code will do that for you

Dim Addx As String
Dim Col As Long
Dim Row As Long

Row = ActiveCell.Row
Col = ActiveCell.Column

Addx = Cells(Row, Col).Address & ":" & Cells(370, Col).Address
ActiveSheet.Range(Addx).Interior.ColorIndex = 56


Sincerely,
Leith ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=47744