excel2007 VBで

質問

下記のマクロ作成して実際にセルにＡ、あるいは何かデータを入力しても下記イベント？が発生している気配がありません。
Application.EnableEvents = Falseの行がなにか問題なのでしょうか。実プログラムは If Target.Value = "Ａ" Or Target.Value = "A" Thenの他にＢ、Ｃ、計算も含んでいるのですがApplication.EnableEvents = TrueはEnd Subの前行に入れてあります。
他に設定することがあるのでしょうか。どなたか教えてください。

Private Sub Worksheet_Change(ByVal Target As Range)
　　　If Target.Count > 1 Then Exit Sub '複数セルの入力は無視
Application.EnableEvents = False '割込み停止
’[B3] = 123
’Stop
If Target.Value = "Ａ" Or Target.Value = "A" Then
Target.Value = "A"
End If

Application.EnableEvents = True '割込み再開

End Sub

excel2007　ＶＢ６．５です。

回答No.1

noname#187541 · ベストアンサー

こんばんは。

提示のコードはきちんと動きます。

ですが、Application.EnableEvents = Falseの後でエラーが起こった時に、デバッグせず終了にしたり、デバッグしてもコードを継続させないとApplication.EnableEvents = Trueが実行されないので、以降イベントが発生しなくなります。

Application.EnableEvents = Trueを実行すれば直ります。

お礼

早々の回答、ありがとうございました。
理解できました。