Hola:
La instrucción en VBA es:
expresión.
SaveAs (FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode................)
Ej:
ActiveworkBook.SaveAs ruta & nbre & ".xls"
donde previamente definirás las variables ruta y nbre, ej:
ruta = "C:\Documents & Settings
\" o
ruta = ThisWorkbook.Path
& "\"
nbre = Sheets(1).Range("B5").value
Atención: no olvidar la barra entre la ruta y el nbre.
Saludos
Elsa
http://galeon.com/aplicaexcel
