check for errors

[lior03]

hello
this code loops through every cell in used range detects error and report both the cell address(errored cells only)and the type of error.
[VBA]
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If IsError(cell) Then
MsgBox cell.Address & " - contain error" & CVErr(cell), vbInformation, "error handler"
End If
Next

[/VBA]
how can i tell the user the type of error hehas through vba?
thanks

[Bob Phillips]

[vba]

Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If IsError(cell) Then
MsgBox cell.Address & " - contain error" & cell.Text, vbInformation, "error handler"
End If
Next
[/vba]

[lior03]

hello
i wanted to add another condition to an error cell - a formula cell with a zero.
[VBA]
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Val(cell.HasFormula) = 0 Then
cell.Font.ColorIndex = 3
End If
Next

[/VBA]
how can i denote all cells that have a formula and it's result is zero?
thanks

[mikerickson]

Dim cell As Range 
For Each cell In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlNumbers) 
    If cell.Value = 0 Then 
        cell.Font.ColorIndex = 3 
    End If 
Next