Правильный синтаксис для добавления гиперссылок на лист Excel из массива

Question

У меня есть макрос Excel, который использует DIR в lopp для извлечения всех файлов из всех папок и отображения их на рабочем листе.Бит кода, который выводится на лист в каждой итерации:

rOut.Range("A1:B1").Offset(iFile).Value = Array(sName, sFile)

Я хотел бы вывести первую ячейку в виде гиперссылки на папку, в которой находится файл (хранится в переменной sPath), иво второй ячейке я хотел бы вывести имя файла, которое также является гиперссылкой для открытия файла.

Я получил этот бит кода:

With rOut
    With .Cells(1, 1)
        .Offset(iFile).Hyperlinks.Add Anchor:=.Offset(iFile), Address:=sPath, TextToDisplay:=sName
    End With
    With .Cells(1, 2)
        .Offset(iFile).Hyperlinks.Add Anchor:=.Offset(iFile), Address:=sName, TextToDisplay:=sFile
    End With
End With

Я знаю, что этонебрежный, и он заметно медленнее, чем приведенный выше синтаксис массива, но я просто не могу понять это.

Предложения?

Спасибо.