it works great thanks...but when running this the last row of the workbook is
still left filled in, is there a way to change this?

"Don Guillett" wrote:

Cells(i, mc).Interior.ColorIndex = 0
to
Cells(i, mc).ENTIREROW.Interior.ColorIndex = 0


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"daphoenix" wrote in message
...
Thanks for the help again don,

the code that you gave me only changes the color in column M, how would I
apply this to the entire row.

"Don Guillett" wrote:

Try this. If you want row 4 also just change 8 to 4
Sub removecolorfromcellsinrow()
mc = "m"
For i = 8 To Cells(Rows.Count, mc).End(xlUp).Row Step 4
'MsgBox i
Cells(i, mc).Interior.ColorIndex = 0
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"daphoenix" wrote in message
...
how would I Remove the fill color of every fourth row starting after
the
4th
row.

thanks