25.画面設定
Application.Dialogs(xlDialogDisplay).Show