Pequeño error en mi Macro

Después de preguntar y no conseguir respuesta me dedique a investigar hasta que encontré lo que buscaba. Pero me falta un detalle.

1º La macro:

Sub Suc()
Range("=G1:Z3000").Select
With Selection
For Each Celda In Selection
If Celda.Value Like "*1*" Then
Celda.Font.ColorIndex = 5
Celda.Font.Bold = True
Celda.Font.Italic = True
Celda.Interior.ColorIndex = 43
ElseIf Celda.Value Like "*2*" Then
Celda.Font.ColorIndex = 2
Celda.Font.Bold = True
Celda.Font.Italic = True
Celda.Interior.ColorIndex = 12
ElseIf Celda.Value Like "*3*" Then
Celda.Font.ColorIndex = 2
Celda.Font.Bold = True
Celda.Font.Italic = True
Celda.Interior.ColorIndex = 47
End If
Next
End With
End Sub

Mi pregunta es la siguiente, por que no coloca la fuente de color blanco para los valores 2 y 3. Por que en los valores 1, funciona perfecto. Gracias!