Renombrar Archivos o Carpetas

Os traigo una macro para Excel que permite renombrar los archivos, las carpetas, e incluso mover los archivos  o las carpetas.

Para que funcione en Excel debemos hacer dos columnas contiguas:

• en la primera pondremos la rutas que queramos cambiar (por ejemplo la Columna A), y 
• en la siguiente columna (es este caso Columna B) la nueva ruta.

La macro va a empezar en la celda que estáis seleccionando (por ejemplo la celda A1) y continuando en las filas siguientes hasta la primera celda que esté en blanco.

Este es el código:

Sub RenombrarDirectorio()

Ruta = ""

Set Celda = Selection

'Abrir un While que funcione mientras la variable "celda" no este vacia
While Celda <> ""
    Name Ruta & Celda.Value As Ruta & Celda.Offset(0, 1).Value
    Set Celda = Celda.Offset(1, 0)
Wend

End Sub


Fijaros que la variable Ruta está vacía haciendo que se deba poner la ruta entera en la celda (p.e. C:\Prueba\Libro1.xlsx), pero si ponéis la variable Ruta = "C:\Prueba\" la macro funcionaria para renombrar archivos poniendo en las celdas únicamente los nombres de los archivos.