Public Sub Сбор_данных()

Dim Расчет As Workbook
Dim Файл As String
Dim Путь As String
Dim vData As String

Application.DisplayAlerts = False
Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename("Файлы Excel (*.xls), *.xls", , , , True)

Число_Файлов = UBound(FilesToOpen)

For i = 1 To Число_Файлов
    Файл = Dir(FilesToOpen(i), 7)
    Путь = Mid(FilesToOpen(i), 1, Len(FilesToOpen(i)) - Len(Файл))
    
    Set Расчет = Workbooks.Open(Filename:=FilesToOpen(i), UpdateLinks:=False, ReadOnly:=True)
    vData = Расчет.Sheets(1).Name
    Расчет.Close SaveChanges:=False

    With Worksheets("Свод")
        .Cells(i + 4, 1) = GetValue(Путь, Файл, vData, "C7")
    End With
    If i Mod 10 = 0 Then
        OpenForms = DoEvents
    End If
    
Next i

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Private Function GetValue(Путь As String, Файл As String, Лист As String, Ячейка As String)
    GetValue = ExecuteExcel4Macro("'" & Путь & "[" & Файл & "]" & Лист & "'!" & Range(Ячейка).Range("a1").Address(, , xlR1C1))
End Function

Модуль 1:
Sub ggg()
   Dim a0, b0, c0, d0 As Single
   a0 = 5
   b0 = 10
   d0 = hhh(a0, b0)
End Sub

Public Function hhh(a, b)
   a = a * b
   hhh= a
End Function