Soru Makro ile dosya adı değiştirme

[smt41]

Merhalar,

Elimde isimleri kodlarla verilmiş binlerce resim dosyası mevcut. Excel içerisinde her kodun karşılığı olan ürün açıklamaları da elimde mevcut. Bunları her kod için kendi yazdığım şekilde ismini değiştirmek istiyorum. İnternette aşağıdaki gibi bir kod buldum, A sütununda olan eski dosya ismini B sütununda olan benim verdiğim değer ile değiştiriyor. Fakat sanıyorum ki bu kod ismi bulamadığında ya da bir sebepten bir yerlerde duruyor. Çalıştırınca belli bir yere kadar isim değiştiriyor fakat nerede neden kalıyor bilmiyorum. Hata gördüğü yerde dosyayı/hücreyi atlayıp çalışmaya devam etmesi için ne gibi bir değişiklik gerekiyor?
Ya da bu amaç için başka türlü bir makro öneriniz de olabilir.
Teşekkür ediyorum şimdiden.

Elimdeki makro:

Sub RenameFiles()
r = 0
Do
    r = r + 1
    oldfilename = Cells(r, 1)
    newfilename = Cells(r, 2)
    If oldfilename = "" Or newfilename = "" Then Exit Do
    Name oldfilename As newfilename
Loop
End Sub

 

[halit3]

Bu sitede bununla ilgili birçok uygulamalar mevcut ben bir tanesinin linkini veriyorum

https://www.excel.web.tr/threads/klasoerdeki-dosya-isimlerini-listeleme-degistirme.175530/