Salve,
la macro è perfetta per la mia esigenza, adesso non mi resta che adattarla al mio file ed è molto semplice.
Grazie per la tua fattiva (come sempre) collaborazione.
Saluti
Domenico

salve
modifica la macro come segue:

Sub salva()
Dim miadir As String, miofile As String
Application.ScreenUpdating = False
miadir = Range("a2").Value
miofile = Range("a1").Value
Range("a1:a2").ClearContents
ChDir miadir
ActiveWorkbook.SaveAs Filename:=miadir & "\" & miofile
Workbooks.Open ("c:\windows\desktop\pippo.xls")
Range("a1:a2").ClearContents
Workbooks(miofile).Close SaveChanges:=False
End Sub


Questa riga:
<font color=red> Workbooks.Open ("c:\windows\desktop\pippo.xls")</font id=red>
identifica il nome del file modello e il suo percorso che devi adattare alle tue esigenze
saluti
Andrea

Edited by - a10n11 on 04/05/2006 10:02:28

---