for loop to change the cell color didnt work

[yellowpower]

Hi guys, I am trying to use a for loop to do some formatting work. however, the for loop seems to stop everytime I put in the line to change cell color.
I have tested it with a simple loop, pls see the code below. Could anyone advise me why this happens?

Thanks

Sub test()

Dim i As Integer

For i = 1 To 20

Range(Cells(1, 1).Offset(0, 0), Cells(1, 1).Offset(i, 0)).Select
Selection.Interior.ColorIndex = i

Next i

End Sub

[tlafferty]

Not sure what you're trying to do, but this will put the color indices 1 - 20 in column A:

Please Login or Register  to view this content.

[TMS]

What doesn't work?

As far as I can see, it extends the range one cell down each time through the loop and changes the colour to the value of i. That works. You don't need to select the cell(s) though:

Please Login or Register  to view this content.

Regards