Problem with error trapping

[McManCSU]

I am writing a data compiling program that when run updates a master sheet. I have files that have "_COMP" added to the end of the file name if they have been updated. I am trying to open every file as if it has the _COMP, but most do not, so an error is generated. I catch the error no problem the first round, but on the next pass in a for loop, it displays the error (from trying to open a file that doesnt exist) rather than catching it. I have tried the error.clr call but still no help. My code looks like this more or less:

For Each wsSheet In Worksheets
On Error GoTo notCOMP
Set wBook = Workbooks(wsSheet.name & "_COMP.xls")

If wBook Is Nothing Then 'Wkbk is NOT open
'Opens
Workbooks.Open Filename:="G:\ROHS\" & name & "\" & wsSheet.name & "_COMP.xls"
On Error GoTo notCOMP
End If
........
<code>
........
notCOMP:
<code>
Err.Clear
Next wsSheet

Any ideas on why I cant clear out the error?

[Tom Ogilvy]

You need a resume statement in your error handler. Until a resume statement
is executed, you are still in error handler mode and an error in the error
handler causes excel to halt.

In the module, type
Resume
highlight it and hit F1. This will explain it to you.

--
Regards,
Tom Ogilvy

"McManCSU" <[email protected]> wrote in
message news:[email protected]...
>
> I am writing a data compiling program that when run updates a master
> sheet. I have files that have "_COMP" added to the end of the file
> name if they have been updated. I am trying to open every file as if
> it has the _COMP, but most do not, so an error is generated. I catch
> the error no problem the first round, but on the next pass in a for
> loop, it displays the error (from trying to open a file that doesnt
> exist) rather than catching it. I have tried the error.clr call but
> still no help. My code looks like this more or less:
>
> For Each wsSheet In Worksheets
> On Error GoTo notCOMP
> Set wBook = Workbooks(wsSheet.name & "_COMP.xls")
>
> If wBook Is Nothing Then 'Wkbk is NOT open
> 'Opens
> Workbooks.Open Filename:="G:\ROHS\" & name & "\" &
> wsSheet.name & "_COMP.xls"
> On Error GoTo notCOMP
> End If
> .......
> <code>
> .......
> notCOMP:
> <code>
> Err.Clear
> Next wsSheet
>
> Any ideas on why I cant clear out the error?
>
>
> --
> McManCSU
> ------------------------------------------------------------------------
> McManCSU's Profile:
http://www.excelforum.com/member.php...o&userid=24379
> View this thread: http://www.excelforum.com/showthread...hreadid=389120
>