I had this one land on my desk today. I need to loop through a list of file paths in column "A" that are set up as hyperlinks. I need to move those files to a static directory. However when I try the code below, I get a "File not found" error. Agnone have something for this?
Here is what i was messing with to no avail:
Code: Select all
Sub RectangleRoundedCorners1_Click()
Dim PDFfile As Range
For Each PDFfile In ActiveSheet.Range("A1:A300")
If PDFfile.Value <> "" Then
FileCopy PDFfile.Value, "C:\Users\JValentine\Documents\Test" & PDFfile.Value
End If
Next
End Sub
The hyperlinked file pathsin column "A" look like: \\grouper\IBML\Images\060523\742200\09761901652.pdf