Boa noite!!

Algo assim te ajudaria.

Sub AleVBA_13678()
For Each Cell In Selection
If Cell.Formula Like "*]*" And Cell.Formula Like "*!*" Then
Cell.Interior.ColorIndex = 6
ElseIf Not Cell.Formula Like "*]*" And Cell.Formula Like "*!*" Then
Cell.Interior.ColorIndex = 6
ElseIf Not Cell.Formula Like "*]*" And Not Cell.Formula Like "*!*" And Cell.Formula Like "=*" Then
Cell.Interior.ColorIndex = 6
Else
Cell.Interior.ColorIndex = 3
End If
Next Cell
End Sub

Att

Ale pode utilizar a propriedade HasFormula
do Help VBA

True se todas as células do intervalo contiverem fórmulas, False se nenhuma das células do intervalo contiver uma fórmula, Null nos outros casos. Variant somente leitura.

if cell.hasformula=true then

Se quiser fazer com formatação condicional...

Boa tarde!!

Ale pode utilizar a propriedade HasFormula
do Help VBA

Mestre Reinaldo, bem lembrado, você é show, obrigado!!!!!!!!!

Att

Alexandre, essa macro consegue alterar todas as células do arquivo ou somente as selecionadas?

Alexandre, essa macro consegue alterar todas as células do arquivo ou somente as selecionadas?

No código do alexandre, altera somente as selecionadas.

Se vc quiser alterar todas as células que foram utilizadas, troque:

For Each Cell In Selection

por

For Each Cell In UsedRange