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


Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=375581