Gaba,

Your problem is evaluating for an eror when there is not one there. Try
this

On Error Resume Next
For Each c In Range("E17", "CE44")
If c.Interior.ColorIndex = 6 Then
If c.Value = CVErr(xlErrValue) Then
If Err.Number = 0 Then
c.Interior.ColorIndex = 44
End If
ElseIf c.Interior.ColorIndex = 6 And _
c.Value 9999 Then
c.Interior.ColorIndex = 44
c.FormatNumber = "0.00"
End If
End If
Next
--

HTH

RP
(remove nothere from the email address if mailing direct)


"gaba" wrote in message
...
hi everybody,
It is possible to change the color index of a cell with error 2015
(#VALUE!)?
if I get this error-cells colored with orange, then I can check the values
of the rest, somehow is stopping on the ones with errors. All cells I'm
checking are colored yellow, I'm ignoring the rest.

Thanks for any help

sub CheckValue ()

For Each c In Range("E17", "CE44")
If c.Interior.ColorIndex = 6 And _
c.Value = CVErr(xlErrValue) Then
c.Interior.ColorIndex = 44

ElseIf c.Interior.ColorIndex = 6 And _
c.Value 9999 Then
c.Interior.ColorIndex = 44
c.FormatNumber = "0.00"
End If
Next



End Sub

gaba :)