Ordner umbenennen Laufzeitfehler 75

Sub Ordner_umbenennen()
Dim sDateiAlt As String
Dim sDateiNeu As String
Dim sFile As String
sFile = "7005-KDP_Adam Klaus"
sDateiAlt = "Altbau Mustering 123 80000 Musterdorf"
sDateiNeu = "Altbau Mustering 25 80000 Musterdorf"
With Application
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
Name ThisWorkbook.Path & "\Firma\" & sFile & "\" & sDateiAlt _
As ThisWorkbook.Path & "\Firma\" & sFile & "\" & sDateiNeu
With Application
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
End Sub