Error handling

[Gareth]

I am unable to handle a ceratin error that crops up when
the following code is run.

Sub compare()
Application.ScreenUpdating = False
Dim cell As Range
For Each cell in Sheets("Sheet2").Range("A2:A501")
Range("E6:E" & Range("E65536").End(xlUp).Row).Find
(cell.Value).Activate
'do stuff if cell.value found
Next cell
Application.ScreenUpdating = True
End Sub

My problem occurs when a value on sheet2 is not found in
column E on sheet1. I need an error handler to skip the
part that does stuff and starts again at Next cell.

Thanks in advance.

Gareth

 

[Patrick Molloy]

Sub compare()
dim result as range

Application.ScreenUpdating = False
Dim cell As Range
For Each cell in Sheets("Sheet2").Range("A2:A501")

set result = Range("E6:E" & Range("E65536").End(xlUp).Row).Find(
(cell.Value))
IF not result is nothing then

'do stuff if cell.value found End If
Next cell
Application.ScreenUpdating = True
End Sub