Color Rows or Colums

[ch4nk1ngm1ng]

Is there a simple macro program so that when it is executed on sheet, it will color all the cells in every 5th row/column in grey?

[Bob Phillips]

[vba]
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow Step 5

.Rows(i).Interior.ColorIndex = 15
Next i
[/vba]

[ch4nk1ngm1ng]

Thanks for the formula. I can't seem to make it run. Does it matter that I have excel 2003?

[BrianMH]

do you have any data in column a?

[ch4nk1ngm1ng]

No data, was testing it on a blank sheet. Thanks, it works.

[mdmackillop]

You can also use Mod
[VBA]For i = 1 To 500
If i Mod 5 = 1 Then Rows(i).Interior.ColorIndex = 15
Next[/VBA]

[Chris Bode]

    Dim row As Long, col As Long
    For row = 1 To Sheet1.Rows.Count Step 5
     For col = 1 To Sheet1.Columns.Count Step 5
        Sheet1.Cells(row, col).Interior.Color = 12632256
     Next
    Next