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

Application.Dialogs(xlDialogWorkbookCopy).Show