Without code.......................

You could select the 10000 rows and FormatConditional FormattingFormula is

=MOD(ROW(),2)=1

Format to a nice color and OK


Gord Dibben MS Excel MVP

On Sat, 19 May 2007 12:43:52 -0400, "Gary Keramidas" <GKeramidasATmsn.com
wrote:

you can try something like this
Sub test()
Dim rng As Range
Dim y As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
Set rng = ws.Range("A1:B1000")
With rng
For y = 1 To rng.Rows.Count
If y Mod 2 = 1 Then
Range(ws.Cells(y, "A"), ws.Cells(y,
"B")).Interior.ColorIndex = 43
Else
Range(ws.Cells(y, "A"), ws.Cells(y,
"B")).Interior.ColorIndex = 0
End If
Next
End With

End Sub