lue = Application. GetSaveAsFilename (InitialFileName: = i)
'при натисканні кнопки "скасування" виходить з процедури
If SaveName = False Then Exit Sub. SaveAs Filename: = SaveName & "xls"
'збереження файлу
SaveName = Application. GetSaveAsFilename (InitialFileName: = fio)
'при натисканні кнопки "скасування" виходить з процедури
If SaveName = False Then Exit Sub. SaveAs Filename: = SaveName & "xls"
'закриває створену книгу і переходить до форми 1
ActiveWorkbook. Close False. Hide. ShowSub