Как да направя VBA макрос за ексел за хиперлинк на файлове от дадена папка

Здравейте, моля за помощ имам папка с файлове и искам да направя в ексел хиперлинк към тях. Намерих от един форум този код но ми дава грешка не знам, защо

Sub Macro1()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\Asus\Desktop\1\") 'Change path here
i = 1
For Each objFile In objFolder.Files
    Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        objFile.Path, _
        TextToDisplay:=objFile.Name
    i = i + 1
Next objFile
End Sub

https://www.youtube.com/watch?v=7Cbuivl52EI https://chandoo.org/forum/threads/create-hyperlinks.33046/

Някой ако може да ми помогне ще съм много благодарен. Благодаря предварително