Извлечение свойств файла - VBA

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

Добрый день! Стоит задача извлечения определённых свойств файла(ов) (имя, дата изменения и размер). Нашёл код и немного доработав получил следующее:

Sub load_file()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile(Application.GetOpenFilename)
Cells(Selection.Row, 11) = File.Name
Cells(Selection.Row, 12) = File.DateLastModified
Cells(Selection.Row, 13) = File.Size
End Sub

Подскажите, как выбрать изменить начальный каталог открытия файла и что дописать, что бы при нажатии "Отмена" не выскакивала ошибка? Возможно ли данные свойства получить не через окно открытия, а при помощи ссылки на файл? Имею ввиду примерно следующее:

With ActiveSheet
      For I = 1 To .Hyperlinks.Count
            .Hyperlinks(I).Range.Offset(0,1).Value = .Hyperlinks(I).Address
      Next I
End With

Только вместо адреса выше упомянутые свойства что бы извлекались

Решение задачи: «Извлечение свойств файла»

textual
                            Листинг программы 
                        

                            Sub load_file()
Set FSO = CreateObject("Scripting.FileSystemObject")
With ActiveSheet
  For I = 1 To .Hyperlinks.Count
    Set File = FSO.GetFile(.Hyperlinks(I).Address)
    .Hyperlinks(I).Range.Offset(0, 1).Value = File.Name
    .Hyperlinks(I).Range.Offset(0, 2).Value = File.DateLastModified
    .Hyperlinks(I).Range.Offset(0, 3).Value = File.Size
  Next I
End With
End Sub
                        