vba в чем ошибка

[hata77]

здравствуйте подскажите пожалуйста в чем моя ошибка

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1
For i = 1 To 6
If Target.Row <> i Then
Cells(i, 1)).Clear
End If

Next i


Case 2
End Select
End Sub

выдает ошибку: Method 'Clear' of object 'Range' failed

[hata77]

кажись понял. Когда клирим мы опять изменяем содержимое ячейки соответственно опять вызывается функция worksheet_clange
Кто то знает как можно от этого избавиться?

[IgorGO]

application.enableevents = false
...
application.enableevents = true