Excel2021 VBAのコードを使って作成した「実行ボタン」をクリックしてもエラーが出て（エラー文は長いため本文記載）実行できない。

Question

Sub ボタン作成()
    With ActiveSheet.Buttons.Add(Range("AK1").Left, _
                                 Range("AK1").Top, _
                                 Range("AK1:AP1").Width, _
                                 Range("AK1:AP4").Height)
        .Name = "dele"
        .OnAction = "dele"
        .Characters.Text = "削除"
    End With
End Sub

とVBAで記述し実行するとボタンは作成されるのですが、クリックすると

発生している問題・エラーメッセージ

マクロ"   "を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。

①トラストセンターの「マクロの設定」は「警告を表示してすべてのマクロを無効にする」になっています。
②「メッセージバー」の「ActiveXコントロールやマクロなどのアクティブコンテンツがブロックされた場合、すべてのアプリケーションにメッセージバーを表示する」にチェックが入っています。
③作成した実行ボタンで実行したいマクロには問題がなく、コントロールの挿入から作ったボタンでは正常に実行されます。

解決方法、チェックすべきところ、ご教示お願いいたします。

Answer 1

実行ボタンで実行したいマクロはどこのモジュールにありますか？
（標準モジュールですか？）

Comments

[himawari39]

ありがとうございます。
実行したいマクロ、マクロを作成するマクロとも、同じsheetにあります。

[jinoji]

シートモジュールのマクロを起動したいなら、
OnAction="Sheet1.dele"のように書く必要があります。

[himawari39]

なるほど。
ありがとうございます！！
試してみます。

[himawari39]

無事に実行できました。
ありがとうございました！

Answer 2

マクロが無効になってるから実行できないんでは

Comments

[himawari39]

ありがとうございます。
コントロールの挿入から作ったボタンでは正常に実行されるのですが、
ボタン作成（）　の中で「マクロを有効」にするような記述が必要なのですか？

[y_waiwai]

とりあえずマクロを有効にしてやってみては。

[himawari39]

トラストセンターで「VBAマクロを有効にする」に変更しても同じメッセージが出て実行できませんでした。