Formatação no VBA com várias condicões

[Andreia16]

Não estou conseguindo montar um programa em VBA, onde preciso estipular mais de 05 condições, onde, de acordo com o texto, fique de uma cor, e cada vez que tiver atualização no status, que assuma a cor da mudança do mesmo.

A macro baixo, atualiza somente uma vez, porém, quando o status é alterado, não assume a nova cor. O que está errado??

Alguém pode me ajudar, estou utilizando a situação abaixo, mas está com problema:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:IU1000")) Is Nothing Then Exit Sub
With Target
    Select Case (.Value)
    Case Is = "ok com atraso": .Interior.ColorIndex = 6
    Case Is = "Não embarcado": .Interior.ColorIndex = 3
    Case Is = "Em trânsito": .Interior.ColorIndex = 5
    Case Is = "Embarcado": .Interior.ColorIndex = 7
    Case Is = "ok": .Interior.ColorIndex = 10
    Case Is = "": .Interior.ColorIndex = 2
        
    End Select
End With
    
    With Target
    Select Case (.Value)
    Case Is = "ok com atraso": .Font.ColorIndex = 6
    Case Is = "Não embarcado": .Font.ColorIndex = 3
    Case Is = "Em trânsito": .Font.ColorIndex = 5
    Case Is = "Embarcado": .Font.ColorIndex = 7
    Case Is = "ok": .Font.ColorIndex = 10
    
        
    End Select
End With
    
End Sub

Editado Fevereiro 6, 2009 por kuroi
Adicionar tag CODE

[webdeveloper]

Você precisa fazer em VBA ou quer fazer em VBA?

Pois no Excel existe a formatação condicional, que deve fazer o que você deseja.