Cell Color Change

[daphoenix]

how would I Remove the fill color of every fourth row starting after the 4th
row.

thanks

 

[Don Guillett]

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

 

[daphoenix]

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]

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

 

[daphoenix]

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]

Must not be a multiple of 4.
you could add the line just before end sub
rows(Cells(Rows.Count, mc).End(xlUp).Row ).Interior.ColorIndex = 0