Ошибка при выполнении процедуры Workbook.Open

Public Sub OpenPassword()
'Application.EnableCancelKey = xlDisabled
 
    Filt = "Все файлы (*.*), *.*," & _
    "Все файлы Excel (*.xlsx;*.xls), *.xlsx," & _
    "Все файлы Excel (*.xlsx;*.xls), *.xls,"
    FilesArray = Application.GetOpenFilename(Filt, 2, "Открыть документы с паролями", , True)
    If Not IsArray(FilesArray) Then Exit Sub
    
 
    
    Set WhantHelp = New ChangList
    
    For i = LBound(FilesArray) To UBound(FilesArray)
        
        'MsgBox FilesArray(i)
        For ti = 1 To WhantHelp.sKolMyArray
            'MsgBox WhantHelp.MyArray(ti)
            On Error GoTo NextTi
            Application.Workbooks.Open Filename:=FilesArray(i), Password:=WhantHelp.MyArray(ti) ' <---
            GoTo NextI
NextTi:
        On Error GoTo -1
        Next ti
NextI:
    On Error GoTo -1
    Next i
'Application.EnableCancelKey = xlEnabled
End Sub