{quote}{login=MrViper}{date=14.02.2011 09:06}{thema=}{post}Неужели ни кто не занает...{/post}{/quote}  
небольшой пример не помешал бы, а любую ошибку  которую отслеживает VBA можно обработать так  
On Error Resume Next  
If Err.Number <> 0 Then Err.Clear: MsgBox "ERROR"

Sub go()  
Dim WebQ As Object, i As Integer, g As Boolean  
On Error GoTo miss  
Sheets(2).Select  
For i = 1 To Sheets(1).Cells(1, 1).Value  
   g = True  
   Set WebQ = ActiveSheet.QueryTables.Add(Connection:="URL;" & CStr(Sheets(1).Cells(i, 2)), Destination:=Range("A6"))  
   With WebQ  
   .Name = ""  
   .FieldNames = True  
   .RowNumbers = False  
   .FillAdjacentFormulas = False  
   .PreserveFormatting = True  
   .RefreshOnFileOpen = False  
   .BackgroundQuery = True  
   .RefreshStyle = xlInsertDeleteCells  
   .SavePassword = False  
   .SaveData = True  
   .AdjustColumnWidth = True  
   .RefreshPeriod = 0  
   .WebSelectionType = xlEntirePage  
   .WebFormatting = xlWebFormattingNone  
   .WebPreFormattedTextToColumns = True  
   .WebConsecutiveDelimitersAsOne = True  
   .WebSingleBlockTextImport = False  
   .WebDisableDateRecognition = True  
   .WebDisableRedirections = False  
   End With  
   On Error Resume Next  
   WebQ.Refresh BackgroundQuery:=False  
   If Err Then GoTo miss  
     
   'далее следует здоровенный кусок кода, поэтому "resume next" по этой причине вписать не получиться  
rr:  
Next i  
Exit Sub  
miss:  
If Err.Number = 1004 Then  
   Err.Clear  
   GoTo rr:  
Else  
   MsgBox "Ошибка"  
End If  
End Sub