Excel Forum

Code: Select all

Sub DoSomething()
    Dim rAll As Range
    Dim r As Range
    With Sheets("List")
        Set rAll = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    For Each r In rAll
         MyPath = r.Value
         MyFile = r.Offset(0, 1).Value
         NewName = r.Offset(0, 2).Value
         If Dir(MyPath & "\" & MyFile) <> "" Then
             Name MyPath & "\" & MyFile As MyPath & "\" & NewName
         End If
     Next r
End Sub

Code: Select all

MyPath = r.Value & "\"

Code: Select all

Sub DoSomething()
    Dim rAll As Range
    Dim r As Range
    On Error Resume Next
    With Sheets("List")
        Set rAll = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    For Each r In rAll
         MyPath = r.Value
         MyFile = r.Offset(0, 1).Value
         NewName = r.Offset(0, 2).Value
         If Dir(MyPath & "\" & MyFile) <> "" Then
             Name MyPath & "\" & MyFile As MyPath & "\" & NewName
         End If
     Next r
     MsgBox "Finish", vbInformation
End Sub