Çözüldü Dosyadaki Resim Adlarını Excel Listesinden Topluca Değiştirme

Sub DosyaIsmiDegistir()

    Dim FSO         As FileSystemObject
    Dim Klasor      As Object
    Dim Dosya       As Object
    Dim i           As Integer
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Klasor = FSO.GetFolder(ThisWorkbook.Path & "\Resim").Files
    
    For Each Dosya In Klasor
        For i = 1 To WorksheetFunction.CountA(Sheets("Sayfa1").Range("A:A"))
            If Dosya.Name = Cells(i, 1) & ".JPG" Then
                Dosya.Name = Replace(Dosya.Name, Cells(i, 1).Value & ".JPG", Cells(i, 2).Value & ".JPG")
                Cells(i, 3) = "Yeni Dosya İsmi : " & Dosya.Name
            End If
        Next i
    Next Dosya
    
    Set FSO = Nothing
    Set Klasor = Nothing
    Set Dosya = Nothing
    
End Sub

Private Sub cbRun_Click()
    DosyaIsmiDegistir
End Sub

            If Dosya.Name = Cells(i, 1) & ".JPG" Then
                Dosya.Name = Replace(Dosya.Name, Cells(i, 1).Value & ".JPG", Cells(i, 2).Value & ".JPG")

            If Dosya.Name = Cells(i, 1) Then
                Dosya.Name = Replace(Dosya.Name, Cells(i, 1).Value, Cells(i, 2).Value)