Hi Norman,

I tried your code but there seems to generate an error each time i run it.

first:
on the line
If Not rng2 Is Nothing Then
i get the error message "object required"

second: the code itself generates an error but it still stops the code in
stead of handling the error
Any ideas ?
Thanks,
Pierre


Norman Jones wrote:
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
'<<==============

Hi experts,

[quoted text clipped - 22 lines]
Thanks,
Pierre

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200511/1