Grabar un archivo el texto esta en una celda

hola, byrpa !

... figurense que tengo un archivo, con un nombre que me da el sistema, supongamos, file001.xls
... necesito... una macro que grabe el archivo... y ponga el nombre del contenido de una celda
... supongamos que en la celda b5 esta el texto, "barco25"
... yo lo hago manualmente, le doy edicion a la celda b5, lo marco todo, ctrl c y despues archivo-guardar como y ctrl v y aceptar
... se puede hacer esto en una macro?

con una instruccion +/- como la siguiente...-> ActiveWorkbook.SaveAs Range("b5"), xlWorkbookNormal
-> se guarda el libro 'activo' -> con el nombre/texto de la celda 'B5' DE LA HOJA 'activa'... -> EN EL DIRECTORIO 'activo' ;)

-> si necesitas que sea el libro que contiene 'la macro/instruccion'... cambia 'ActiveWorkbook' por -> ThisWorlbook
-> si necesitas que 'la hoja' pueda ser diferente de la activa... complementa 'Range("b5")' por -> Worksheets("HojaX").Range("b5")
-> si nececitas que 'el directorio' sea 'independiente' del directorio activo... complementa 'el nombre' [<hoja>.range("b5")]
ANTEPONIENDO la ruta 'diferente' [p.e.] -> "c:\mis archivos\en esta carpeta\" & <hoja>.range("b5")

[obviamente] puedes 'personalizar' [o tomar de otras celdas] las partes del codigo que necesites conservar como 'variables' ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.