セルと連動したチェックボックスを沢山作り出したいです。

Question

前提・実現したいこと

セルと連動したチェックボックスをオートフィル？などで多く作り出したいと考えています。
まずは連動したセルを隣において完成すれば何列か開けて活用していきたいと考えています。
　写真のようなイメージです。

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

まずはじめにチェックボックスを作成しその後、チェックボックスの隣にリンクするセルを設定しました。
次にマクロの登録から
Option Explicit
'
Sub Macro1()
Dim CheckBox As CheckBox
'
Set CheckBox = ActiveSheet.CheckBoxes(Application.Caller)
CheckBox.TopLeftCell.Offset(, 1) = CheckBox = 1
End Sub
これらの文を設定しましたが、このように表示されました。

コードとそのコードをどの部分入力するのかという事と出来れば簡単な解説を教えていただきたいです。
よろしくお願いします。

Answer 1

'Sub チェック1_Click()    <--
Option Explicit
'
Sub チェック1_Click()  'Sub Macro1()    <--
Dim CheckBox As CheckBox
'
Set CheckBox = ActiveSheet.CheckBoxes(Application.Caller)
CheckBox.TopLeftCell.Offset(, 1) = CheckBox = 1
End Sub

Answer 2

画像をみると、
Option Explicit
の上に
Sub チェック1_Click()
というコードがありますが、これを削除すればエラーはでなくなるでしょう。