Ошибка времени выполнения 1004; Обработка ошибок

У меня проблемы с обработкой ошибок. Я сшиваю ряд пронумерованных файлов для нескольких бизнес-мест. Я написал код, чтобы перейти к следующему циклу местоположения при ошибке «файл не там», потому что в каждом месте есть другое количество файлов.

Даже с обработкой ошибок, я получаю ошибку времени выполнения 1004. Как это может быть? Он бомбит второй контур положения, работает на первом. Я использовал цикл из 15 файлов, чтобы быть в безопасности, потому что макс, с которым я столкнулся, равен 12.

Sub OpenURL() Dim LocBackupFile As String Dim CurrentFile As String Dim HubFileName As String Application.DisplayAlerts = False Filedate = Format(Date, "mm-dd-yyyy") 'Cycle through Hubs HubArray = Array("GA100%20-%20AHUB", "TX100%20-%20DHUB", "CA200%20-%20HHUB", "IN100%20-%20IHUB", "WA100%20-%20KHUB", _ "AB100%20-%20LHUB", "MO100%20-%20MHUB", "NC100%20-%20NHUB", "OH100%20-%20OHUB", "PA100%20-%20SHUB", _ "IN200%20-%20THUB", "UT100%20-%20UHUB", "ON100%20-%20VHUB", "MN100%20-%20WINO", "NL100%20-%20YHUB") For Hub = LBound(HubArray) To UBound(HubArray) HubName = Left(HubArray(Hub), 5) HubFileName = HubName & " NoLocBackup " & Filedate & ".xlsb" For CheckAndOpen = 1 To 15 LocBackupFile = "http://fastnet.--------.com/sites/fastreports/Hubs/" & HubArray(Hub) & "/locbackup_ws" & CheckAndOpen & ".xls" On Error Resume Next Workbooks.Open FileName:=LocBackupFile On Error GoTo Done CurrentFile = "locbackup_ws" & CheckAndOpen & ".xls" If CheckAndOpen = 1 Then RowCount = ActiveSheet.UsedRange.Rows.Count Workbooks.Add.SaveAs FileName:="R:\" & HubFileName, FileFormat:=50 If RowCount >= 65000 Then DestRowCount = 65001 End If Workbooks(CurrentFile).Sheets(1).Range("A1:H" & RowCount).Copy Destination:=Workbooks(HubFileName).Sheets(1).Range("A1") Else RowCount = ActiveSheet.UsedRange.Rows.Count If RowCount < 64999 Then Workbooks(CurrentFile).Sheets(1).Range("A3:H" & RowCount).Copy Destination:=Workbooks(HubFileName).Sheets(1).Range("A" & DestRowCount) Else Workbooks(CurrentFile).Sheets(1).Range("A3:H65000").Copy Destination:=Workbooks(HubFileName).Sheets(1).Range("A" & DestRowCount) DestRowCount = DestRowCount + 64998 End If End If Workbooks(CurrentFile).Close SaveChanges:=False Next CheckAndOpen Done: On Error GoTo 0 Workbooks(HubFileName).Save Workbooks(HubFileName).Close Next Hub Application.DisplayAlerts = True End Sub