Set col = Worksheets("Соответствия").Rows(1).Find(i, LookAt:=xlWhole)

Sub InsRowFolderFile()
Dim arr1$(), fName$, iTr$, i%, j%
Dim book As Workbook
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then iTr = .SelectedItems(1)
End With
fName = Dir(iTr & "\*.xls*")
If fName = "" Then Exit Sub
Do
    i = i + 1
    ReDim Preserve arr1(1 To i)
    arr1(i) = fName
    fName = Dir
    If fName = "" Then Exit Do
Loop
Application.ScreenUpdating = False
For j = 1 To i
    Set book = Workbooks.Open(Filename:=iTr & "\" & arr1(j))
    With book
        
"Код чего применить в каждом файле"


    End With
Next j
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub