herci

Veja Welington: --Se for a cor de fundo da Célula: Sub Cor_da_Celula() Range("c21").Select If Range("c21").Value = "x" Then With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End Sub --Se for a Cor da Fonte: Sub Cor_da_Fonte() Range("c21").Select If Range("c21").Value = "x" Then Selection.Font.ColorIndex = 3 End If End Sub Obs: Isso se você quiser utlizar VBA, caso contrario, realmente é melhor utilizar a formatação condicional. Abs Lisandro Oliveira Lisandro, Gostaria de usar este código acima, mas para "pintar" a linha do resultado. Exemplo: Se o resultado na célula g5 for igual a x então as células de a5 à h5 ficam verde... Dá para fazer? Thank´s