Como renombrar archivos de una carpeta mediante excel?

En tu hoja de excel en la columna A desde la celda A1 pon los nombres de archivo.

En la columna B desde la celda B1 pon el nuevo nombre

Con la siguiente macro renombras los archivos. Cuando ejecutas la macro, te va pedir que selecciones la carpeta en donde tienes los archivos.

Te sugiero que antes de hacer la ejecución tengas un respaldo de los archivos para que conserves los archivos con los nombres originales.

Sub Renombar()
'Por.Dante Amor
    On Error Resume Next
    ruta = "C:\trabajo"
    Set navegador = CreateObject("shell.application")
    carpeta = navegador.browseforfolder(0, "SELECCIONE UNA CARPETA", 0, ruta).items.Item.Path
    If carpeta = "" Then Exit Sub
    carpeta = carpeta & "\"
    ChDir carpeta
    '
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        arch1 = carpeta & Cells(i, "A")
        arch2 = carpeta & Cells(i, "B")
        If Dir(arch1) <> "" Then
            If Cells(i, "B") = "" Then
                Cells(i, "C") = "Falta nombre destino"
            Else
                Name arch1 As arch2
                Cells(i, "C") = "Renombrado"
            End If
        Else
            Cells(i, "C") = "Archivo no existe"
        End If
    Next
End Sub

Sigue las Instrucciones para ejecutar la macro

1. Abre tu archivo de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Cuando la macro termina en la columna C te pone el resultado:

"Renombrado", "Archivo no existe" o "Falta nombre destino"

Prueba y me comentas.