Hi Srinivasan,

You need to find the colorindex for a colour, and update it.

This simple code returns all the colorindex values as the row number

For i = 1 to 56
Cells(i,"A").Value = i
Cells(i,"B").Interior.Colorindex = i
Next i

--
HTH

Bob Phillips

"srinivasan" wrote in message
...


Thank a lot Mr Bob! It works nice. But if I want to change the color what
should I do?