неоднозначное имя обнаружено: Worksheet_Change

Question

Когда я использую этот макрос, чтобы очистить B12 когда я изменить B11, я получаю ошибку компиляции:

ambiguous name detected: Worksheet_Change

Можете ли вы мне помочь?

Код:

Private Sub Worksheet_Change(ByVal Target As Range) 
     If Target.Address = "B11" Then 
     Range("B12").ClearContents 
     End If 
End Sub 

Answer 1

Попробуйте это:

Private Sub Worksheet_Change(ByVal Target As Range) 

     If Not Application.Intersect(Target, Range("B11")) Is Nothing Then 
     Application.EnableEvents = False 
      Range("B12").ClearContents 
     Application.EnableEvents = True 
     End If 

End Sub