Public Sub ssilkee()
LastRow = Cells(Rows.Count, 2).End(xlUp).Row       'Захват последнего использованного номера строки
    Cells(LastRow, 2).Offset(1, 0).Select           'Выбираем следующую строку вниз
Dim rng1 As Range, unoCell As Range
Dim rowLast As Long
Dim TheFolder, TheFiles, AFile, FSO
Dim FolderName As String
With ActiveSheet
rowLast = .Cells(Rows.Count, 1).End(xlUp).Row
FolderName = "L:\**********\*****************"
Set rng1 = .Range(.Cells(Selection(1).Row - 10, 1), .Cells(Selection(1).Row, 1))
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder(FolderName)
Set TheFiles = TheFolder.Files
For Each unoCell In rng1
For Each AFile In TheFiles
If (AFile.Name Like "*" & unoCell.Value & "*.*") And (unoCell.Value <> "") Then
.Hyperlinks.Add Anchor:=unoCell.Offset(0, 0), _
Address:=TheFolder.Path & "\" & AFile.Name ', TextToDisplay:=TheFolder.Path & "\" & AFile.Name
End If
Next AFile
Next unoCell
End With

End Sub