Copy List of Hyperlinked Files From Source to Target Folder

I have a list of file paths and names (i.e. "C:\Folder\example.tif") in a column. I'd like to write a macro that would copy the entire list of files from their current location (on a network server) to a specified folder on my desktop. I've tried using the filecopy code, and that works, but only for a single cell. When I try to enter the full range of cells, it doesn't work. Any ideas?

So there is no way to automate the process? I'd have to rewrite the code for every single row?

Ok, here is what I have so far....

Sub CopyFile()
Dim src As String, dst As String, fl As String
'Source directory
src = Range("Q6", "Q139")
'Destination directory
dst = Range("S6", "S139")
'File name
fl = Range("R6", "R139")
On Error Resume Next
FileCopy src & "\" & fl, dst & "\" & fl
If Err.Number <> 0 Then
MsgBox "Copy error: " & src & "\" & fl
End If
On Error GoTo 0
End Sub

Please note that that code isn't working. You'll see that I'm trying to reference rows 6 through 139, but that doesn't work. If I reference just one row, the code works. Thanks for your help.

Sorry about that. Here you go...

Please Login or Register  to view this content.

And no, the destination directory never changes. I want all files to go into the same folder on my desktop.

Thank you. Should I use your code to replace all of mine? Or do I add yours underneath my existing code? (sorry, I'm new to VBA.)

I get the error: "Sub or Function not defined" and then it highlights "Sub ugadawgs311()"

Do I need to completely delete my existing module (with my old code)?

I still get the same error and highlighting of "Sub ugadawgs311()"

Yes. This is the only code showing now...

Please Login or Register  to view this content.

Sub CopyFile has been removed.

You're a lifesaver! Thank you. That worked. I got an error message on 2 of the files, but the other 132 worked perfectly. Thanks again.

Hi,
I have the same requirement with the variation that the destination folder changes.I have the source folder path Colum A,
file names in Column B
Destination path in Column C
The source folder path Colum A,
file names in Column B
Destination path in Column C

Each file which are there in Column B has to be moved to folders which are there in Column C entere for each of these files.

Source File Names Destinations
C:\Documents and Settings\Source Files Applle.xls C:\Documents and Settings\Destination Files/ Apple Folder
C:\Documents and Settings\Source Files Ball.xls C:\Documents and Settings\Destination Files/ Ball Folder
C:\Documents and Settings\Source Files Aple.doc C:\Documents and Settings\Destination Files/ Apple Folder
C:\Documents and Settings\working Files aret.xls C:\Documents and Settings\Destination Files/ Apple Folder
C:\Documents and Settings\Source Files Baby.xls C:\Documents and Settings\Destination Files/ Ball Folder



Column A has the folder path where I have all my files.
Column B has the file names from the above folder
Column C has the destination where these files are to be moved.

I have some 1000 files which are to be moved like this.

I'll appreciate your help on this.