Toplu dosya adı değiştirme

Sub DosyaAdiDegis() 
 ' Makro: Mesut Akcan 
 ' 7/6/2018 
 ' www.akcansoft.com 
 On Error Resume Next 
 klasor = "d:\ahmet\" 
 satir = 1 
 Do 
     yeni_ad = Cells(satir, 1) ' A sütunu 
     eski_ad = Cells(satir, 2) ' B sütunu 
     If yeni_ad = "" Then Exit Do 
     Name klasor & eski_ad As klasor & yeni_ad 
     If Err Then 
         kontrol = "Hata ! " & Err 
         Err = 0 
     Else 
         kontrol = "Tamam !" 
     End If 
     Cells(satir, 3).Value = kontrol 
     satir = satir + 1 
     DoEvents 
 Loop 
 MsgBox "İşlem Tamam !" 
 End Sub