VBA changeイベント Exit Sub

Question

changeイベントにExit Subをしようしたのですが、
Exit Subが実行されるとそれ以降changeイベントが動作しなくなってしまいました。

Exit Subを使用したいのは、changeイベントにおいて、行選択をしてdeleteキーを押してしまうと、オーバーフローが起こりExcelが閉じてしまうためです。
行を選択した状態で何かchangeイベントに該当するようなことがあったとき、Exit Subでchangeイベントを抜けるようにコードを書きました。

以下にサンプルコードを記載いたします。

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

'行選択で操作が行われていた場合、changeイベントを抜ける。
Dim selectAddress As String
'選択範囲を相対参照で取得し､コロンを置き換える。
selectAddress = Selection.Address(rowabsolute:=False, columnabsolute:=False)
'行が選択されているなら数字とコロンだけ（例3：3）だからコロンを消せば数字だけになる。
selectAddress = Replace(selectAddress, ":", "")

'行を選択 = 数字だけならchangeイベントが終わり。
If (IsNumeric(selectAddress)) Then
    Exit Sub
Else
    Target.Value = "a"
End If

Application.EnableEvents = True

End Sub

一度でもExit Subの処理が行われてしまうと、次からはセルを編集しても

Else
    Target.Value = "a"

の処理が起こらなくなります。

私自身でも試してみて、
Exit Subを記載せずにif文がtrueの時は何も記載しなければ、問題無く次回以降もchangeイベントが起動いたします。

もちろんExit Subを記載しなければ、マクロが動くという点では解決している話なのですが、
どうしてchangeイベントでExit Subの処理が起こると、次回以降changeイベントが機能しなくなるのか、教えていただけますでしょうか。

Answer 1

Exit Subの前にもApplication.EnableEvents = True を入れたらよいと思います。

Comments

[tttkkk]

ありがとうございます。
jinoji様の仰る通りにしましたら、Exit Subの処理が起こった後もchangeイベントが問題無く動作しました！

Exit Subの前にApplication.EnableEvents = Trueを入れないと、Application.EnableEvents = Falseのままchangeイベントが終了してしまうことになり、次回以降のchangeイベントが動作しないのですね。

こんな単純なことだったのに気付かずすみませんでした。
教えていただきありがとうございます。