48.新規作成
Application.Dialogs(xlDialogNew).Show