Kan bestand niet vinden

[Hightree]

Ik heb de code van U veranderd naar

Sub cop()
Dim Source As Range
Dim OldFile As String
Dim NewFile As String
Dim r As Long
Set Source = Cells(1, 3).CurrentRegion
For r = 1 To Source.Rows.Count
    OldFile = Cells(r, 3).Value
    NewFile = Cells(r, 4).Value
Name OldFile As NewFile
Next
End Sub

en dat werkt als een trein.
Om te proberen heb ik wel andere kolommen gebruikt maar dat maakt niets uit.

Hallo,

Had even de hoop dat het zou werken, jammer genoeg krijg ik nog steeds dezelfde melding. Fout 53

Sub cop()
    Dim Source As Range
    Dim OldFile As String
    Dim NewFile As String
    Dim r As Long
    Set Source = Cells(26, 1).CurrentRegion
    For r = 1 To Source.Rows.Count
        OldFile = Cells(r, 1).Value
        NewFile = Cells(r, 2).Value
    Name OldFile As NewFile
    Next
    
End Sub