Color Fill row

[mattress58]

I need to color fill a row. The code below works, but if there are some blank cells in the row it stops. I need to fill until there last cell with data. There will be no more than 2 blacnk cells in a row.

What can I add to this.

Please Login or Register  to view this content.

[Solus Rankin]

Which column has the last cell with data?

[berlan]

Try change

With Range(Cells(i, 3), Cells(i, Cells(i, 3).End(xlToRight).Column)).Interior

to

Range(Cells(i, 3), Cells(i, Columns.Count).End(xlToLeft)).Interior

or perhaps

With Range(Cells(i, 3), Cells(i, ActiveSheet.UsedRange.Columns.Count).Interior

[mattress58]

It is going to vary. Data will be from "C" to "K" but there may not bu data in "K" always so I would need it to color from "C" to the last cell with data which wont be past "K"

[mattress58]

The

Please Login or Register  to view this content.

worked. Thanks for the help

[Solus Rankin]

Please Login or Register  to view this content.

[berlan]

The

Please Login or Register  to view this content.

worked. Thanks for the help

mattress58, glad it worked!