Sub poisk_v()
    Dim poisk
    Dim sFolder As String, sFiles As String, n As Long
    Dim wB As Workbook, wFromB As Workbook, WhatFind As Range, MySheet As Worksheet, result As Range
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Set wB = ThisWorkbook
    sFolder = wB.Path & "\"
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        If sFiles <> wB.Name Then
            Set wFromB = Workbooks.Open(sFolder & sFiles)
            With wB.Sheets(1)
                For Each WhatFind In .Cells(1, 2).Resize(.Cells(Rows.Count, 2).End(xlUp).Row, 1)
                    For Each MySheet In wFromB.Sheets
                        Set result = MySheet.Range("B:B").Find(What:=WhatFind.Value, LookIn:=xlValues, LookAt:= _
                    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
                    , SearchFormat:=False)
                        If Not result Is Nothing Then
                            n = Application.Max(7, .Cells(WhatFind.Row, .Columns.Count).End(xlToLeft).Column - 1)
                            WhatFind.Offset(, n).Value = sFiles
                        End If
                    Next
                Next
            End With
            wFromB.Close False
        End If
        sFiles = Dir
    Loop
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub