特別に公開します。 '★★☆ マクロにマクロを作らせる ☆★★ Option Explicit Sub start() '新しいブック作成 Workbooks.Add [C1] = "私の名前は " & ActiveWorkbook.Name & " です" [C1].Font.ColorIndex = 3 'マクロ起動用ボタンの作成 ActiveSheet.Buttons.Add(50, 30, 320, 30).Select Selection.OnAction = ActiveWorkbook.Name & "!SUMPLE" Selection.Characters.Text = "私は新ブックに新しく作られた新マクロ実行ボタンです" [A1].Select '標準モジュールを挿入 ActiveWorkbook.VBProject.VBComponents.Add vbext_ct