Ordner umbennnen - fehler beim zugriff auf pfad/da

Sub OrdnernameUmbennen()
'Error Handler.
On Error GoTo Error_Procedure
Mldg = MsgBox("Alter Ordnername incl. Pfad in Spalte A und neuer in Spalte B? Start ab  _
Zeile 2!", _
vbYesNo + vbQuestion, "Ordnernamen ändern")
If Mldg = vbYes Then
'Startbefehl
GoTo Startpunkt
Else
Exit Sub
End If
Startpunkt:
Set objTab = ActiveSheet
'Startzeile festlegen und letzte genutzte Zeile ermitteln.
iErsteZeile = 2
iLetzteZeile = objTab.Cells(Rows.Count, 1).End(xlUp).Row
'Für jede Zeile in der Liste.
For i = iErsteZeile To iLetzteZeile
With objTab
'Ordnernamen einlesen.
Ordnerpfad_alt = .Cells(i, 1)
Ordnerpfad_neu = .Cells(i, 2)
If Ordnerpfad_alt  "" Then
Name Oderpfad_alt As Ordnerpfad_neu
'Rückmeldung in Tabelle.
.Cells(i, 3).Value = "geändert"
.Cells(i, 3).Select
Else
'Rückmeldung in Tabelle.
.Cells(i, 3).Value = "Fehler"
End If
End With
Next i
Exit_Procedure:
Set objTab = Nothing
Exit Sub
Error_Procedure:
MsgBox Err.description
Resume Exit_Procedure
End Sub