Hi Dave,
Your solution looked the easiest to me, so I tried it out, but I am getting
a "run-time error 424 object required".
The code I used is as follows:

Dim FoundCell As Range
Workbooks.OpenText Filename:="A:\AGLR110", Origin:=437, StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(3, 1),
Array(9, 1), _
Array(18, 1), Array(72, 1), Array(90, 1)), TrailingMinusNumbers:=True
Range("A1").Select
Set FoundCell = Cells.Find(What:="2500", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If FoundCell Is Nothing Then
Else
Acct2500100 = ActiveCell.Offset(0, 4).Value
End If

I thought the Dim and Set statement would be sufficient, but maybe the Cells
is not a range object, although I figured the activate, must be a range
object. The "2500" is in the worksheet. If I am able to get this to work,
will have to Redim FoundCell to use it in another Cells.Find or can I
continue to the same variable and Set statement?

Thank you for your help,
--
David


"Dave Peterson" wrote:

> Maybe you could just check the results in line and drop the "on error" stuff
> completely:
>
> dim FoundCell as range
> set foundcell = something.find(what:=....)
> if foundcell is nothing then
> 'not found
> else
> 'found it, do the work code goes here
> end if
>
>
>
> David wrote:
> >
> > Hi Group,
> > I am doing several Find procedures in a module. I do not always expect to
> > Find the text so I get a 91 error. The first instance of the error is handled
> > by an error procedure "On Error GoTo ErrorHandler" where I clear the error
> > ErrorHandler:
> > Err.Clear
> > This is fine, but I am repeating the Find procedure several more times and
> > can not predict where and when it might fail again. Subsequent failures do
> > not allow me to use another "On Error GoTo ErrorHandlerTwo", note the
> > different name. I can not use a Resume Next, becasue on a failure I need to
> > skip certain code steps, so I want to continue the code after the
> > ErrorHandler or ErrorHandlerTwo or Three, etc.
> >
> > Suggestions would be appreciated. It maybe that I have to Dim and Set, but I
> > am not sure how to do this for each possible instance of a Find failure.
> >
> > Thanks
> > --
> > David
>
> --
>
> Dave Peterson
>