【VBA】指定したフォルダのファイル一覧とリンクを取得

Sub ファイル一覧()
Dim buf As String
Dim i As Long
Dim Path As String

'フォルダの選択
    With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    Path = .SelectedItems(1)
    End With

'エクセルのみ抽出
    buf = Dir(Path & "\*.xlsx")

'CELL B2からスタート。    
     i = 1
    Do While buf <> ""
        i = i + 1
'No
        Cells(i, 2) = i
'ファイル名
        Cells(i, 3) = buf
'リンクを
        LINK = Path & "\" & buf
        Cells(i, 4).Value = "=HYPERLINK(""" & LINK & """,""リンク"")"

        buf = Dir()
    Loop

End Sub