40.関数の貼り付け
Application.Dialogs(xlDialogFunctionWizard).Show