Where Can Buy Cal Gel

The For Each .. Next repeat instructions for each of the objects in a collection
determined.

slightly modified previously seen an example of the colors of the book to
get the same result.
But this time we will refer to collections of objects. Sub

obtener_los_56_colores ()

'here is known that the Excel handles a palette of 56 colors
' then we know also that it is necessary to repeat a certain section
the code

rango_a_pintar As Range Dim cell As Range Dim

As Byte Dim
September
rango_a_pintar = Range ("A1: A56") 'assign the range we need


For Each cell In rango_a_pintar' repeated for one element of the collection

a = a + 1

celda.Interior.ColorIndex = a 'assigning respective colors of the book

cell Next cell End Sub