Dateien umbenennen

Sub umbenennen()
Dim LR As Integer, Sp As Integer, Z1 As Integer, i As Integer
Dim Pfad As String, NAlt As String, NNeu As String
Z1 = 1 'ggf Überschrift beachten
Sp = 1 'Daten in Spalte A
Pfad = "E:\Temp\" 'mit \ am Ende
With Sheets("Tabelle1")
LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
For i = Z1 To LR
NAlt = .Cells(i, Sp)
NNeu = .Cells(i, Sp).Offset(0, 1)
If NAlt  "" And NNeu  "" Then
If Dir(Pfad & NAlt)  "" Then
Name Pfad & NAlt As Pfad & NNeu
Else
MsgBox NAlt & ": nicht gefunden"
End If
End If
Next
End With
End Sub