Perfect!! Thanks, guys.

st.

"Alex@JPCS" wrote in message
. ..
In the Error Handler routine Err_Hand91: try...

Resume NextWeek

instead of

Goto NextWeek.

Without the resume statement, I think the "On Error" statement will not
stay
in force, but looking through help did not clarify. "Resume" automatically
clears the error.

Alex



"zSplash" <zNOSPAMSplash@ gci.net wrote in message
...
My code searches for a string, and if found, does something, then
continues
in the loop; if not found , it just re-enters the loop (without doing
something). It loops fine through the err handler once, but then it's
like
it can't "see" it any more. Is this clear? Is the error handler in the
wrong place, or this just a real goofy to do what I want to do? TIA,
guys

My code is:

[...blah, blah]
On Error GoTo Err_Hand91
Cells.Find(What:=Holiday, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext,
_
MatchCase:=False).Activate
' if no error, must be in holiday cell - call sub
foundHoliday
NextWeek:
X = X + 1
Wend
Err_Hand91:
If Err.Number = 91 Then
Err.Clear
GoTo NextWeek
End If
[blah, blah...]