Hola Luis.
Tengo esta función que renombra archivos. Fijate como la podés adaptar.
El punto es: Deberías cerrarlo antes de renombrarlo para que no te de error por estar en uso el archivo.
Código:
Function RenombrarArchivo(origen,destino)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FileExists(origen)) then fso.MoveFile origen, destino
end if
set fso = nothing
End function
Esto obviamente, pasa todo el contenido tal cual está al archivo destino, si tenés que hacer modificaciones en el archivo, te conviene abrirlo para escritura, guardar los cambios y después cambiar el nombre.
Bueno, espero que sea de ayuda
Saludos!