Error Handling works only once
 

I have these codes below. The Error Handling works only for the first file in
the folder but not the other files. Does anyone know why? All the files in
the folder do not have Sheet ABC. Thanks in advance for your help.

For Each file In Folder.Files
If file.Type = "Microsoft Excel Worksheet" Then
Workbooks.Open FileName:=file.Path, UpdateLinks:=xlUpdateLinksNever
On Error GoTo ErrHandler
Sheets("ABC").Select
ErrHandler:
ActiveWorkbook.Close SaveChanges:=True
End If
Next file

Error Handling works only once
 

Try handling error like this. If an error occurs when the select command is
executed it will close tthe workbook, otherwise it will go to On Error
statement and return to normal error handling.

For Each file In Folder.Files
If file.Type = "Microsoft Excel Worksheet" Then
Workbooks.Open FileName:=file.Path, UpdateLinks:=xlUpdateLinksNever
On Error Resume Next

Sheets("ABC").Select
ActiveWorkbook.Close SaveChanges:=True
On Error GoTo 0
End If
Next file

"linglc" wrote:

I have these codes below. The Error Handling works only for the first file in
the folder but not the other files. Does anyone know why? All the files in
the folder do not have Sheet ABC. Thanks in advance for your help.

For Each file In Folder.Files
If file.Type = "Microsoft Excel Worksheet" Then
Workbooks.Open FileName:=file.Path, UpdateLinks:=xlUpdateLinksNever
On Error GoTo ErrHandler
Sheets("ABC").Select
ErrHandler:
ActiveWorkbook.Close SaveChanges:=True
End If
Next file