Запись гиперссылки файла в нужную ячейку - VBA

Формулировка задачи:

Добрый день, Прошу вашей помощи. В определённой папке лежат файлы. Имена этих файлов считываю на лист Excel в виде гиперссылок. Как мне сделать, чтобы каждое имя файла сравнивалось с именем записанным в столбце B и гиперрссылка помещалась напротив в столбец C, как показано в примере? Пример с кодом прилагаю.

Sub Example1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
 
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("C:\Temp")
i = 0
'loops through each file in the directory
For Each objFile In objFolder.Files
'select cell
Range(Cells(i + 1, 7), Cells(i + 1, 7)).Select
'create hyperlink in selected cell
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
objFile.Path, _
TextToDisplay:=objFile.Name
i = i + 1
Next objFile
End Sub

Спасибо за ответы! С уважением.

Решение задачи: «Запись гиперссылки файла в нужную ячейку»

textual
                            Листинг программы 
                        
                             TextToDisplay:=objFile.Name