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.
Thanks!

[paulked]

Hi and welcome to the forum

See here

[Efusu]

Thank you, it worked!

[paulked]

You're welcome!

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!