Если в базе не содержится объекта (выдается ошибка ADODB.Field error '80020009' на сервере) то программа один раз эту ошибку отлавливает, на второй раз вылетает с ошибкой 1004 (не удается загрузить данные)

Sub Copy_Info()
For i = 1 To 1000
Workbooks("file.xls").Activate
Sheets("list").Activate
On Error GoTo 1
With Sheets("list").QueryTables.Add(Connection:= _
"URL;http://www.xxx.ru/yyy.asp?id=" & i, Destination:=Range("A1"))
.Name = "yyy.asp?id=" & i
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
'<<<<<< ДАЛЕЕ на 2-ой ошибочный заход ВЫЛЕТАЕТ error
.Refresh BackgroundQuery:=False
End With

........

1
Next i
End Sub



Где затыка????