Private Sub Form_Activate()
Windows("Start.xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub


helyett


Private Sub Form_Activate()
Workbooks("Start.xls").Close (True)
End Sub