Macro excel pintar números.

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 Selection.Interior
 .Pattern = xlSolid
 .PatternColorIndex = xlAutomatic
 .Color = 65280
 .TintAndShade = 0
 .PatternTintAndShade = 0
 End With
 Else
 Worksheets("Hoja1").Cells(i, 1).Select
 With Selection.Interior
 .Pattern = xlSolid
 .PatternColorIndex = xlAutomatic
 .Color = 255
 .TintAndShade = 0
 .PatternTintAndShade = 0
 End With
 End If
Next i
End Sub

Debes tener las siguientes consideraciones:

1. La macro utiliza la hoja de cálculo llamada Hoja1, debes personalizar dicho nombre si tienes otro diferentes.

2. La lista de números debe estar en la columna A.

3. Debes personalizar las condiciones que aparecen en la siguiente línea del código para contemplar todos los números que dices:

If Ref > 0 And Ref < 10 Or Ref = 30 Or Ref = 40 Or Ref = 50 Or Ref = 66 Then

4. Los números que hacen referencia al color (.Color = 255) son de la versión 2010, puede ser que tengas que cambiar los colores para adaptarlas a otras versiones.

¡Espero que la respuesta te sea de utilidad!
Sígueme en mi blog: http://hocalsolutions.blogspot.com.es/

En primer lugar muchas gracias, pero no me va. Me pone: El objeto no admite esta propiedad o metodo?¿