Ver originalDim ColorList(6) as String' Agregar los colores al array ColorList(0) = "Red" ColorList(1) = "Orange" ColorList(2) = "Yellow" Dim ColorName as String For Each ColorName in ColorList 'tu codigo Next