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