Приватное Sub Workbook_Open ()
если MsgBox, то («вы полюбите импортировать самое последнее питание данных спросить? », «питание данным по ввоза», =vbYes vbYesNo) после этого
MacroName1
если MsgBox, то («вы полюбите проверить для новых производственных специализаций? », «номенклатуры товаров проверки», =vbYes vbYesNo) после этого
MacroName2
если MsgBox, то («вы полюбите форматировать формулы списков цен на товары? », «формулы списков формы», =vbYes vbYesNo) после этого
MacroName3
закончитесь если
закончитесь если
закончитесь если