Sub ShowColours()

dim i as long

for i = 1 to 56
cells(i,1).interior.colorindex = i
next

End Sub


RBS

Darin Kramer wrote:
Guys,

Anyway to automatically populate individual cells in a column with all
the different background colours (well primary ones) Each cell to have
a different background colour until u run out of colours...?

Thanks

me


*** Sent via Developersdex http://www.developersdex.com ***