Roberto Ventura

Anónimo respondió: Puedes intentar utilizar el siguiente código: Sub Colores() For i = 1 To 1000 Ref = Worksheets("Hoja1").Cells(i, 1).Value If Ref > 0 And Ref < 10 Or Ref = 30 Or Ref = 40 Or Ref = 50 Or Ref = 66 Then Worksheets("Hoja1").Cells(i, 1).Select With...