Hi Max,

If you run this macro through a standard module, you would get an error. Run
it through the module of the sheet in question. For standard module, you
need to reference the range with its parent sheet, and thats why you get an
error.

Mangesh



"Max" wrote in message
...
Thanks, Mangesh

Despite several tries at running your sub, I kept hitting a run-time error
1004
"Unable to set the colorindex property of the interior class"

Clicking debug highlighted this line:
rng.Offset(i, 1).Interior.ColorIndex = i

What can I do ?
--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----
"mangesh_yadav"

wrote in message
news:mangesh_yadav.1py5ae_1117627508.3751@excelfor um-nospam.com...

Private Sub CommandButton1_Click()
Set rng = Range("A1")
For i = 0 To 50
rng.Offset(i, 0) = i
rng.Offset(i, 1).Interior.ColorIndex = i
Next i
End Sub