No sé si será esto loque quieres pero igual te vale, al menos de guía:
Cita: sub macro()
...código...
Workbooks.Add
ActiveWorkbook.SaveAs "nombre que se quiera"
...código...
end sub
con esto el libro activo se guarda con el nuevo nombre en la ruta establecida por defecto, si quieres cambiar la ruta tienes que jugar con los parámetros del método SaveAs.