найти файлы в папке из списка и вставить путь

Question

В настоящее время я использую следующую строку для поиска файлов в папках, но я бы хотел, чтобы она выполняла автоматический поиск по списку имен.Фактический код:

    Sub Find_Files()
Dim fldr As FileDialog
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.Show
f = fldr.SelectedItems(1)
f = f & "\"
NumRows = Range("B14", Range("B14").End(xlDown)).Rows.Count
For i = 14 To NumRows
sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & f & Active.Cells & """ /s /a /b").stdout.readall, vbCrLf)
Cells(i, 2).Offset(0, 1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
Next i
ext:
End Sub

Я пытался изменить старую версию с кодом «ibox» в цикл «Для i = 14 - NumRows», но, похоже, он не работает.У кого-нибудь есть совет, как заставить его работать? (Я новичок в кодировании VBA)

заранее спасибо, Риккардо