作成したマクロが実行できないの表示の解決策を学びたいです。

Question

前提・実現したいこと

セルと連動したチェックボックスを沢山作ることを目指しています。

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

セルと連動したチェックボックスを
Sub チェック1_Click() 'Sub Macro1() <--
Dim CheckBox As CheckBox
'
Set CheckBox = ActiveSheet.CheckBoxes(Application.Caller)
CheckBox.TopLeftCell.Offset(, 1) = CheckBox = 1
End Sub
このようなコードで作成しました。
その後オートフィルを行うと写真のような画面が出ました。

試したこと

試したことはマクロの設定からすべてのマクロを有効にすることや
ActiveXの設定から「先に確認メッセージを表示してから、最低限の制限を適用してすべてのコントロールを有効にする」などにチェックを入れました。

補足情報

解決策と勉強のため解説を入れていただければありがたいです。
よろしくお願いします。

ここにより詳細な情報を記載してください。

Comments

[neconekocat]

この質問や前回の質問もそうですが、解決したのであればちゃんと質問を解決済みにしてください。
投げっぱなしで質問だけを増やすのは他の利用者にとっても迷惑になります。

[andvilla8744]

ご迷惑をおかけしました。すみませんでした。

Answer 1

チェック29_Click
という関数が定義されていないのがエラーの理由です

追記
チェックボックスを右クリックしてマクロの登録を選ぶとそのチェックボックスをクリックした際に呼び出す関数を設定(確認)できます。
そこに設定されている関数(チェック29_Click)が存在していないのが原因のため、別の関数を割り当てるかその関数を作ってやれば解決します。