Public Sub FillTablesWithParameters(gvarDate As Date)
Dim strWorkbookName As String
Dim xlWorkbook As Excel.Workbook
Dim intCountSheets As Integer
  
On Error GoTo ErrorHandler
    
    Application.ScreenUpdating = False
  
    strWorkbookName = ThisWorkbook.Name
    Set xlWorkbook = Application.Workbooks(strWorkbookName)
    
    'зададим параметры получения массива с соответствующего листа книги 'Общая'
        
    For intCountSheets = 1 To xlWorkbook.Sheets.Count
        'получим имя листа
        gstrSheetName = xlWorkbook.Sheets(intCountSheets).Name
           
        Select Case gstrSheetName
            Case "свод_табл", "протокол", "свод_журнал"
            
            Case Else   'на остальных листах нужна таблица с параметрами (фотометрические), она же в усеченном виде (титриметрические) или
                        'установление приборов в первом блоке
                
                gvarFileAndProcedureNames = "'" & strWorkbookName & "'" & "!FillTableWithParametersFromArray"
                'вызовем процедуру, где будет заполнен массив
                [color=yellow]Application.Run "Общая.xls!FormingArrayWithParameters", gvarFileAndProcedureNames, gstrSheetName, gvarDate[/color]
                     
        End Select
    Next
    
    'вызовем процедуру, где будет заполнен рекордсет с исполнителями
    gvarFileAndProcedureNames = "'" & strWorkbookName & "'" & "!FillListWithPersonsFromRecordset"
    Application.Run "Общая.xls!FormingRecordsetWithPersons", gvarFileAndProcedureNames
    
    Application.ScreenUpdating = True
    
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    Application.ScreenUpdating = True
    MsgBox "FillTablesWithParameters Ошибка №:" & Err.Number & ";Описание:" & Err.Description
    Resume ErrorHandlerExit
End Sub

Set xlSheet = xlWorkbook.Sheets(gstrSheetName)

For intCountSheets = 1 To xlWorkbook.Sheets.Count
        'получим имя листа
        gstrSheetName = xlWorkbook.Sheets(intCountSheets).Name
        ....
Next