Sub Get_data()

    Dim cn As ADODB.connection
    Dim rs As ADODB.Recordset
 

    Const sql As String = "Provider=SQLOLEDB.1;Password=***;Persist SecurityInfo=True;" & _
    "User ID=***;Initial Catalog=project;Data Source=127.0.0.1"
    Const sSql As String = "SELECT name FROM `customers`"
    
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Open sql
    Set rs = cn.Execute(sSql, 3, 1)
    Rez = rs.GetRows
    rs.Close
    cn.Close
    Set cn = Nothing: Set rs = Nothing
    MsgBox Rez
End Sub

Private Sub ComboBox2_Change()
 Dim sStr() As String, i As Long, li As Long
   For i = 72 To 374
      If LCase(Cells(i, "C")) Like "*" & LCase(ComboBox2) & "*" Then
         ReDim Preserve sStr(li): sStr(li) = Cells(i, "C"): li = li + 1
      End If
   Next
If li = 0 Then Exit Sub
ComboBox2.List = sStr
End Sub 

 ЕСЛИ(ВПР(А1;Диапазон-1;3)="#Н/Д";ВПР(А5;Диапазон-2;3);ВПР(А1;Диапазон-1;3))

Sub 111()

    Dim D1 As Date
    Dim D2 As Date

    Zap = 1
    D2 = Format(Workbooks(StartBook).ActiveSheet.Cells(1, "D"), "dd.mm.yyyy")
    
    Set EndOfList = Sheets(TragSheet).Columns("B").Find(what:="Öâåòîâûå îáîçíà÷åíèÿ", LookIn:=xlValues, lookAt:=xlWhole, MatchCase:=True)
    ReDim LgcAddress(1 To Zap)
    For i = 3 To EndOfList.Row - 2
        If Cells(i, "C") <> "" Then
           D1 = Format(Cells(i, "C"), "dd.mm.yyyy")
           If D1 = D2 Then
              ReDim Preserve LgcAddress(1 To Zap)
              LgcAddress(Zap) = Cells(i, "H")
              Zap = Zap + 1
           End If
        End If
    Next i
    Zap = Zap - 1

    Sheets(TragSheet).Select
    Selection.AutoFilter Field:=3, Criteria1:=D2, Operator:=xlAnd

    MsgBox Zap
    For i = 1 To Zap
        Cells(i + 45, "G") = LgcAddress(i)
    Next i

Ens Sub 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  ' ðàçðåøàåì ââîäèòü òîëüêî öèôðû
    If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 45) Then KeyAscii = 0
    If Left(Chr(KeyAscii), 1) = "-" Then
       TextBox1.MaxLength = 3
    Else
       TextBox1.MaxLength = 4
    End If
End Sub

MaxNods = 4
For i = 10 To i + MaxNods
        DoorSetup.Controls("TextBox" & i).Value = ""
        DoorSetup.Controls("ComboBox" & i).Clear
        DoorSetup.Controls("ComboBox" & i).RowSource = MaterialList
Next i

DoorSetup.Controls("TextBox14").Value = ""

MsgBox Sheets(GlasDirSheet).Cells(Rows.Count, ii.Offset(1, 1).Column).End(xlUp).Address(0, 0)

где ii - адрес с названим каждой таблицы 

Public FTRange()
Public FNList(), FTList()
.....
Sub 1()
    ReDim FNList(1 To St) As String                                                                          
    ReDim FTList(1 To St) As String                                                                       
    ReDim FTRange(1 To St) As Range   
         For i=1 to St
             FNList(i)=...    
             FTList(i)=...
             FTRange(i)=...
         Next i
End Sub 

Private Sub Workbook_Open()

        Sheets(Лист1.Name).Select                       
        VerA = Left(Label1.Caption, 7)
       
End Sub

    qwe = Application.WorksheetFunction.DSum(ActiveSheet.Range("B16:Z69"), ActiveSheet.Range("F16"), ActiveSheet.Range("AW17:AY20"))
   MsgBox qwe

Private Sub ComboBox1_Change()
    Range("$T$14:$Y$14").ClearContents
    Range("$T$14").Select
End Sub

ChDir Path
    Workbooks.Open Filename:=Fpath, UpdateLinks:=0
    ActiveSheet.Unprotect Password:="1230"
    Windows("Касса.xls").Activate                                
    Sheets("касса").Select
    
    Cells(9, 8) = Nzakaza
    
    Set Numm = Columns("C").Find(what:=Nzakaza, LookIn:=xlValues, lookAt:=xlWhole, MatchCase:=False)
    If Not Numm Is Nothing Then
           NummRow = Numm.Row
           MsgBox "такой номер: " & Nzakaza & "в строке:" & NummRow, 64, "Внимание !!!"
           Exit Sub
    End If