VBScript: Kopier til ny fil i stedet for omdøb

Jeg vil gerne have filen i kolonne A kopieret over til en ny fil med det navn der er er angivet i kolonne B. Som det er nu bliver filen i kolonne A omdøbt til navnet i kolonne B.
Den fulde adresse er angivet i begge.

Koden ser ud som følger og er venligst stillet til rådighed af Kabbak:
(http://www.eksperten.dk/spm/755605/)

Public Sub RenameFiles()
    Dim C As Range
    On Error GoTo Fejl
    For Each C In Selection
        Name C As C.Offset(0, 1)
        C.Offset(0, 2) = "OK"
Videre:
    Next
    Exit Sub
Fejl:
    MsgBox C & " blev ikke fundet/ændret"
    C.Offset(0, 2) = "Fejl"
    Err.Clear
    Resume Videre
End Sub