Change files names based on cell value

Assumes headers in top row, old file name in Column A, new file name in Column B
Columns A & B have file names without path but with file extensions
Change references as required.

Sub Or_Simply_So()
Dim path As String, files, i As Long
path = "C:\Folder Name Here\"    '<----- Change as required
files = Cells(1, 1).CurrentRegion.Value
    For i = 2 To UBound(files)    '<----- Change 2 to 1 if no headers in top row
        Name path & files(i, 1) As path & files(i, 2)
    Next i
End Sub

Do you want code to output all the existing file names in the folder to Column A?
And what about the new names?


This might be interesting.
https://www.publicspace.net/windows/BetterFileRename/