Set FileExcel = excel.Workbooks.Open("D:\aventidiritto.xls", , 0)
Set FoglioExcel = FileExcel.Sheets.Item("aventidiritto")
registro.Visible = True
Rows("1:1").RowHeight = 60
Columns("A:A").ColumnWidth = 10#
Columns("B:B").ColumnWidth = 10#

FoglioExcel.Cells(1, 1).Select
ActiveCell.FormulaR1C1 = "Cognome"

FoglioExcel.Cells(1, 2).Select
ActiveCell.FormulaR1C1 = "Nome"

FileExcel.SaveAs FileName:="D:\aventidiritto.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

FileExcel.Close


Se gli scrivo FileExcel.Close
mi si chiude il file in excell
se non lo scrivo dopo non lo apre