Ошибка при повторном открытии книги процедурой

Private Sub CommandButton4_Click()
   If WorkbookIsOpen("Книга.xls") = True Then Exit Sub 'проверка функцией открыта ли книга если да то выход
   
    Dim oXL As Object
    Set oXL = CreateObject("Excel.Application")
    Dim i
    i = 1 '1 всегда есть 1 лист
    Dim My_Array(1 To 100) As Variant 'больше 100 листов не будет
 
With oXL
    .Workbooks.Open "C:\Users\....\Книга.xls"
    .Visible = True
End With
 
For Each Sh In Workbooks(1).Worksheets
    My_Array(i) = Workbooks(1).Sheets(i).Name 'перебор и запись в массив всех листов
    i = i + 1 '_____8) т.к. +1
Next
    
    i = i - 1 '_____8) т.к. уменьшаем i так как из цикла выше выходим со значением +1
For k = 1 To i 'записываем в комбо1 все листы книги
    ComboBox1.AddItem CStr(My_Array(k))
Next k
 
    Set oXL = Nothing
End Sub

For Each Sh In oXL.Workbooks("Книга.xls").Worksheets
    My_Array(i) = oXL.Workbooks("Книга.xls").Sheets(i).Name    
Next

Sub t()
    Dim My_Array(1 To 100) As Variant    'больше 100 листов не будет
    i = 1
    For Each Sh In ThisWorkbook.Worksheets
        My_Array(i) = ThisWorkbook.Sheets(i).Name    'перебор и запись в массив всех листов
        Debug.Print My_Array(i)
        i = i + 1    '_____8) т.к. +1
    Next
End Sub
 
Sub tt()
    Dim el
    For Each el In ThisWorkbook.Worksheets
        Debug.Print el.Name & " " & el.Index
    Next
End Sub