Copy files by name from a folder to another

[Efusu]

Hi. I have a list with specific file names (Sheet "Attachments list", range B2:B603). I need a macro that copies the files in this list from a source folder (that contains those files and a bunch of other files) to a destination folder.
Help pls.:banghead::banghead:
Thanks!

[paulked]

Hi and welcome to the forum

See here (https://answers.microsoft.com/en-us/msoffice/forum/all/vba-excel-find-matching-list-files-and-copy-to/47ee062e-b62c-40e0-90cc-495828da0790)

[Efusu]

Thank you, it worked!

[paulked]

You're welcome! :thumb

You can mark it 'Solved' by using the Thred Tools above.

[binu.b]

Dim filelist As Variant
Dim i As Long
Dim filetocopy As String
Dim copysource As String
copysource = SourceDir
filelist = ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion.Value
For i = 2 To UBound(filelist)
fname = Dir$(copysource & "*.*")
While fname <> ""
If UCase(fname) = UCase(filelist(i, 1)) Then
FileCopy copysource & fname, "C:\Copyto" & fname
End If
fname = Dir$()
Wend
Next i

[paulked]

Binu, code is easier to read if it is indented and you should use Code Tags to wrap code, even copied code!