Rename Files

[mana]

FilesDir = "C:\test"

Option Explicit

Sub RenamesFiles2()
    Dim FilesDir As String
    Dim CurFile As String
    Dim RowNum As Long
    
    FilesDir = "C:\test"
    CurFile = Dir(FilesDir & Application.PathSeparator & "*")
    
    Do Until CurFile = ""
    
        RowNum = 0
        On Error Resume Next
        RowNum = Application.Match(CurFile, Range("A:A"), 0)
        On Error GoTo 0
        If RowNum > 0 Then
        
            Name FilesDir & Application.PathSeparator & CurFile As _
            FilesDir & Application.PathSeparator & Cells(RowNum, "B").Value
        End If
        
        CurFile = Dir
    Loop


End Sub