Boa tarde!!

Veja se te ajuda..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell As Range
Set rng = Application.Intersect(Range("A3:Z80"), Target)
On Error Resume Next
If Not rng Is Nothing Then
    For Each cell In rng
        If cell.Value Like "[#]??????" Then
            cell.Interior.Color = "&H" & Mid(cell.Value, 2)
        End If
    Next cell
End If
End Sub

Desculpe a ignorância...mas aonde eu colo esse código?
Obgd

Boa tarde!!

Após o excel aberto, abra o Editor VBE com as teclas Alt+F11

Do lado esquerdo vera os corpo de código das planilhas, escolha a referencia de planilha que irá usar.
Veja a figura e entenderá..

Att

Alexandre,

não funcionou. Vou tentar achar o problema e te passo um feedback.

Obgd pela atenção.

Boa noite!!
Formatar as células como texto e verificar se seus valores hexadecimais são inseridas como 6 dígitos hexadecimais ('0 'através '9', 'A' através 'F' ou 'f' 'a' ), em seguida, executar esta macro ...
Baixe o arquivo em:
http://www.sendspace.com/file/74vxup

Att

Alexandre,

Deu certo!

Muito Obrigado e desculpe a demora.

Abs.