VBAのworkBookeventについて質問です。

Question

前提・実現したいこと

Sheet1の指定行の指定セルの値が1に変わったときに、別シートの指定列に列を挿入したいです。
条件としては、列を挿入するごとに列がずれるのでOffset(0,-1)?を使って常にE2セルにある値「平均」を基準に左横の列に列を挿入したいです。

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

特にエラー無しだが、コードが実行されない。

該当のソースコード

Private Sub Workbook_sheetChange(ByVal Target As Range)
    If (Target.Row Mod 6 = 0 Or Target.Row Mod 3 = 0) And Target.Value = "1" Then
            'セルの値に変更があったときに実行したい処理を記述
            i = 1
            Do
              If Worksheets("2A").Cells(2, i).Value = "平均" Then
                Worksheets("2A").Cells(2, i).Activate
                Worksheets("2A").Cells(2, i).Offset(0, -1).Insert
              End If
              i = i + 1
            Loop Until Worksheets("2A").Cells(2, i).Value = "平均"

    
              
    End If
End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

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

Answer 1

Workbook_sheetChange とWorksheet_Changeの違いのサイトがありますので
参考にしてください
例1：Sheet1のセルのA1からC30までの範囲のセルに値に変更があった場合にメッセージボックス(MsgBox)を表示する。
例3:Sheet1とSheet3のA1からC10までのセルの値に変更があったときにプログラムを実行
https://selifelog.com/blog-entry-224.html

Answer 2

WorkBookではなくWorksheetのイベント
Sheet1 のコードとして、以下の通り書けば意図通り動くと思われます。

Private Sub Worksheet_Change(ByVal Target As Range)
'略
End Sub