View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
McManCSU[_12_] McManCSU[_12_] is offline
external usenet poster
 
Posts: 1
Default Problem with error trapping


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