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
|