Работа событий в VBA

[Esheron]

При обратном включении событий Application.EnableEvents = True ниже указанная прога стала реагировать на изменения во всех ячейках листа :-(
Ранее когда не отключал/включал события - реагировала только на изменение указанного диапазона.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim cell As Range
For Each cell In Target.Cells
If Not InStr(1, "A303:B305", cell) Then
Call Изменение_Списка
End If
Next cell
Application.EnableEvents = True
End Sub

Что не так?
Заранее благодарен за ответы.

[EducatedFool]

Ерунду вы написали в этой строке
If Not InStr(1, "A303:B305", cell) Then

Так попробуйте:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Me.Range("A303:B305")) Is Nothing Then
        Application.EnableEvents = False
        Изменение_Списка
        Application.EnableEvents = True
    End If
End Sub

[Esheron]

Вау! Всё заработало правильно! Спасибо огромное!