VBA: Loop range of file paths and move them to static path

[vvSTRIDEvv]

Hello, I am having an issue moving some pdf files from the network location to a static local path. See image for sheet example.

When I use this seemingly simple code I get a Path/access error, despite having access. I think I'm missing something.

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 paths in column A look like this:

\\grouper\IBML\Images\060523\742200\09761901652.pdf

 

[John_w]

Try:

                FileCopy PDFfile.Value, "C:\Users\JValentine\Documents\Test" & Mid(PDFfile.Value, InStrRev(PDFfile.Value, "\"))