Privates VorWorkbook_Open ()
wenn MsgBox („wurde Sie mögen die späteste Datenzufuhr importieren fragen? “, „Importdatenzufuhr“, vbYesNo) =vbYes dann
MacroName1
wenn MsgBox („wurde Sie mögen auf neuen Produktserien überprüfen? “, „ÜberprüfungsProduktserien“, vbYesNo) =vbYes dann
MacroName2
wenn MsgBox („wurde Sie mögen die Preislisteformeln formatieren? “, „Formatlistenformeln“, vbYesNo) =vbYes dann
MacroName3
beenden wenn
beenden wenn
beenden wenn