auto fill

  • Thread starter Thread starter Mostro di Biscotti
  • Start date Start date
M

Mostro di Biscotti

I have a spreadsheet with 300 rows, and I would like to color fill every
other row. Can that be done in an automatic way of some sort?
 
Sub colorrow()
For i = 1 To 300 Step 2
Rows(i).Interior.ColorIndex = 6
Next i
End Sub
 
One more option:

Select your range and Format|autoformat
(You may find a pretty one you like!)

You'll have to redo if you insert/delete rows, though.
 
Back
Top