Запрос наличия листа в закрытой книге

Dim Con As New ADODB.Connection
With Con
       .Provider = "Microsoft.Jet.OLEDB.4.0"
       .ConnectionString = "Data Source=" & fil.Path & ";Extended Properties=Excel 8.0;"
       .Open
End With

Workbooks.Open(fil.Path)

Workbooks.Open(fil.Path, UpdateLinks:=False, ReadOnly:=True)

Workbooks.Open(fil.Path, UpdateLinks:=False, ReadOnly:=True).RunAutoMacros xlAutoClose

Public Function FindList(path, nameList) As Boolean
'path - путь и имя книги
'nameList - имя листа
Dim Con As New ADODB.Connection, rs As ADODB.Recordset
With Con
    .provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & path & ";Extended Properties=Excel 8.0;"
    .Open
    Set rs = Con.OpenSchema(20) 'adSchemaTables
    Do Until rs.EOF
        If rs!TABLE_NAME Like "*" & nameList & "*" Then FindList = True
        rs.MoveNext
    Loop
End With
End Function

If FindList(fil.Path, "МСФО") Then

Application.EnableEvents = False
With Workbooks.Open(FileName:=fil.Path, UpdateLinks:=0)
     'Здесь Вы работаете с открытой книгой
End With
Application.EnableEvents = True

    rs.find "TABLE_NAME='" & nameList & "$'"
    If Not rs.EOF Then FindList = True