Private Sub Workbook_Open()
if MsgBox("Would you like to import the latest data feed question?","Import data feed",vbYesNo)=vbYes then
MacroName1
if MsgBox("Would you like to check for new product lines?","Check product lines",vbYesNo)=vbYes then
MacroName2
if MsgBox("Would you like to format the Price Lists formulas?","Format lists formulas",vbYesNo)=vbYes then
MacroName3
end if
end if
end if