'References:
'*********************************************
'"Microsoft ActiveX Data Objects 2.x Library"
'"Microsoft ADO Ext. 2.x for DDL and Security"
'*********************************************
Sub test2()
    Dim cn As ADODB.Connection, cat As ADOX.Catalog, tb As ADOX.Table
    Dim Path As String, wb As String, Sh As String, shExists As Boolean
    
    Path = "C:\temp\"
    wb = "Книга3.xls"
    Sh = "Лист4"
    
    Set cn = New ADODB.Connection
    cn.Open "Provider=MSDASQL.1;Data Source=Excel Files;" & "Initial Catalog=" & Path & wb
    Set cat = New ADOX.Catalog
    Set cat.ActiveConnection = cn

    For Each tb In cat.Tables
        If tb.Name = Sh & "$" Then
            shExists = True
            Exit For
        End If
    Next tb
    If shExists Then MsgBox "Sheet Exists." Else MsgBox "Sheet Doesn't Exist."
    
    Set cat = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Option Explicit
'References:
'*********************************************
'"Microsoft ActiveX Data Objects 2.x Library"
'*********************************************
Sub test()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset
    Dim i As Long, strFile As String, strSQL As String
    Dim RCArray As Variant, Temp As Variant
    Dim SearchCell As Range, DestinationCell As Range
    
    strFile = "C:\Temp\Книга3.xls"
    strSQL = "SELECT * FROM [Лист4$A3:CV65536]"
    Set SearchCell = ActiveSheet.[A3]
    Set DestinationCell = ActiveCell
    
    Set cn = New ADODB.Connection
    On Error Resume Next
    cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DriverId=790;" & _
        "ReadOnly=True;DBQ=" & strFile & ";"
    
    On Error GoTo  0 
    If cn Is Nothing Then
        MsgBox "Can't find the file!", vbExclamation, ThisWorkbook.Name
        Exit Sub
    End If
        
    Set rs = New ADODB.Recordset
    On Error Resume Next
    rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
    On Error GoTo  0 
    
    If rs Is Nothing Then
        cn.Close
        Set cn = Nothing
        Exit Sub
    End If
    
    RCArray = rs.GetRows
    
    With Application
        For i =  1  To UBound(RCArray,  2 )
            Temp = .Match(SearchCell, .Index(RCArray, , i),  0 )
            If Not IsError(Temp) Then
                DestinationCell = Temp
                Exit For
            End If
        Next i
    End With
    
    If rs.State = adStateOpen Then
        rs.Close
    End If
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Sub test1()
    Application.EnableEvents = False
    Workbooks.Open "c:\temp\Книга3.xls"
    Application.EnableEvents = True
End Sub

Sub test2()
    Application.AutomationSecurity = msoAutomationSecurityForceDisable 
    Workbooks.Open "c:\temp\Книга3.xls" 
    Application.AutomationSecurity = msoAutomationSecurityByUI 
End Sub