Sub extra()
Dim N As Long
For N = 1 To 56
Cells(N , 2).Interior.ColorIndex = N
Cells(N , 2).Value = N
Next
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
"Arran"
wrote in message
Where can I find the Index numbers for the colours?