Ошибка Subscript out of range

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как в коде ниже (vba excel 2003) на строке выделенной красным цветом устранить появляющуюся ошибку:

Run-time error '9':
Subscript out of range

Данный код при открытии книги, создает новые листы с таблицами из файла access.
Заранее спасибо!

Private Sub Workbook_Open()

   Dim conn As ADODB.Connection
   Set conn = New ADODB.Connection
   conn.Open "File Name=c:\connect.udl;"

   Dim xl As New Excel.Application
   Dim Sheet As Worksheet
   Dim wksht As String
   Dim strTables As String
   Dim wkbk As Excel.Workbook

   Dim cat As ADOX.Catalog
   Set cat = New ADOX.Catalog
   cat.ActiveConnection = conn

   Dim tbl As ADOX.Table
   Set tbl = New ADOX.Table

   Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset

   Application.ScreenUpdating = False
   xl.DisplayAlerts = False
   With wkbk
      For Each tbl In cat.Tables
         If tbl.Type = "TABLE" Then
            Set rs = conn.Execute("SELECT * FROM " & tbl.Name)
            wksht = tbl.Name
            On Error Resume Next
            Set Sheet = Sheets(wksht)   'на этой строке появляется ошибка
            If Err Then
               Err.Clear
               Sheets.Add After:=Sheets(Sheets.Count)
               Sheets(Sheets.Count).Name = wksht
               i = 1
               Do While Not rs.EOF
                  Sheets(wksht).Cells(i, 1).Value = rs.Fields("Номер")
                  Sheets(wksht).Cells(i, 2).Value = rs.Fields("Элемент")
                  i = i + 1
                  rs.MoveNext
               Loop
            End If
         End If
      Next tbl
   End With
   xl.DisplayAlerts = True

   rs.Close
   conn.Close

   Set rs = Nothing
   Set conn = Nothing
   Set wkbk = Nothing
   Set xl = Nothing
   Set cat = Nothing
   xl.Quit

End Sub

[Aleksandr H.]

Судя по коду ету строку можно удалить. Я бы не стал именовать переменную как Sheet

[IgorGO]

            wksht = tbl.Name
            On Error Resume Next
            Set Sheet = Sheets(wksht)   'на этой строке появляется ошибка

Вы сначала переменной wksht присваиваете имя таблицы tbl, а потом считаете, что среди листов найдется один с там же именем??? он есть у Вас такой???

[ольгаг]

Да, лист может быть.

[Watcher_1]

On Error Resume Next
1) надо вообще вынести за пределы циклов
2) при включении данной опции макрос не должен останавливаться ни на какой ошибке...
3) Было бы проще протестировать на живых данных

[ольгаг]

Спасибо!