87.シートの移動またはコピー

Application.Dialogs(xlDialogWorkbookMove).Show