組み込みダイアログボックス（区切り位置指定ウィザード）

Application.Dialogs(xlDialogTextToColumns).Show