VBA to fill color with multiple rows

[Milos]

Hi all,

I am looking for VBA to fill color (red) when I select a certain range of rows. I will assign a hotkey for this and then select multiple rows and hit the hot key to fill the row with color. Currently I have a code that works for the first row that has been selected (i.e. one row at a time).

Can somebody please help me add to this code so that I can change the color of more than one row at a time, or alternatively all active cells?

Sub fill_color_rows()
Rows(ActiveCell.Row).Interior.ColorIndex = 28
End Sub

Thanks team,

 

[Rick Rothstein]

Can somebody please help me add to this code so that I can change the color of more than one row at a time, or alternatively all active cells?

Sub fill_color_rows()
[B][COLOR="#FF0000"]Rows(ActiveCell.Row).Interior.ColorIndex = 28[/COLOR][/B]
End Sub

Try replacing the highlighted line of code with this one...

Selection.EntireRow.Interior.ColorIndex = 28

 

[Milos]

I knew it was going to be a tiny fix.

Brilliant! Thanks Rick.