cambio de nombre

hola, fredy !

... la columna A contiene el nombre de archivos .gif que existen en una carpeta (67 archivos)
... la columna B el nombre que deberian tener esos archivos
... desde excel cambiar el nombre del archivo .gif ... en la columna A por ... la columna B

puedes consultar en la ayuda [vba] el uso de la instruccion => Name "Origen" As "Destino" <-> 'permite'...
-> renombrar archivos [si se usa el mismo directorio]
-> o copiar archivos [cuando se utilizan directorios distintos para 'origen' y 'destino']
-> 'requisitos' [al renombrar]...
-> que "Origen" EXISTA [y este cerrado]
-> que "Destino" NO EXISTA
usando bucles/ciclos [For..Next] con matrices, 'patrones', etc. [p.e.]
-> si los textos con [la ubicacion y] los nombres de los archivos en las columnas 'A' y 'B' son...
[A1] C:\Directorio de archivos gif\Anterior.gif
[B1] C:\Directorio de archivos gif\Nuevo.gif
en un modulo de codigo 'normal' ==Sub CambiarNombresGif()
Dim Fila As Integer
For Fila = 1 to 67
Name Range("a" & Fila) As Range("b" & Fila)
Next
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
-> si los textos de las columnas son 'solamente' los nombres de los archivos...
a) 'cambiarte' al directorio ->ANTES del bucle For...Next<-
ChDir "C:\Directorio de archivos gif"
b) 'agregar' una variable [de texto] con el directorio y usarla en la instruccion name
Dim Directorio As String
Directorio = "C:\Directorio de archivos gif\"
Name Directorio & Range("a" & Fila) As Directorio & Range("b" & Fila)

saludos,
hector.