Hi Pierre,

Try:

'==============
Public Sub aTester()
Dim rng1 As Range
Dim rng2

Set rng1 = Range("A3:X1000")

On Error Resume Next
Set rng2 = rng1.SpecialCells(xlCellTypeFormulas, xlErrors)
On Error GoTo 0

If Not rng2 Is Nothing Then
'Errors found
MsgBox "Errors in " & rng2.Address(0, 0)
End If

End Sub
'<<==============


--

---
Regards,
Norman



"Pierre via OfficeKB.com" <u13950@uwe wrote in message
news:5790bbd850555@uwe...
Hi experts,

Mi user can put in a lot of data in my application in the lines 3 -1000
and
columns b,c,e,f,g.
After the input my application will start calculating a lot but if the
user
put in a wrong number in a cell my formulas will return an error somwhere
in
the sheet.

Question:

I would like to find out if, anywhere in the sheet, there is a formule
giving
an error message like
- #NB or
-VALUE or
- etc....

Is this possible to do for the range A3:X1000 ?
If it is, i would be able to then show a message that some input was wrong
and stop the calculation...

Thanks,
Pierre

--
Message posted via http://www.officekb.com