15.統合の設定
Application.Dialogs(xlDialogConsolidate).Show