Sub Primer3()
Dim n As Long
LastRow_004 = wb_004.Cells(wb_004.Rows.Count, 1).End(xlUp).Row
Set wb_004 = Workbooks.Open(PathFile + "ZLE004_2024.xlsx").Worksheets(1)
Set wb_otch = ThisWorkbook.Worksheets(1)
For i = 2 To LastRow_004 Step 1
n = WorksheetFunction.Match(wb_otch.Cstr (i).Value, Range("L"+Cstr(i):"L300000"), 0)
With Range("B1400:B1410")
MsgBox "Çíà÷åíèå = " & .Cells(n) & vbNewLine & _
"Àäðåñ = " & .Cells(n).Address & vbNewLine & _
"Ñòðîêà = " & .Cells(n).Row & vbNewLine & _
"Ñòîëáåö = " & .Cells(n).Column
End With
Next
End Sub