<01-9 교집합>

Private Sub Worksheet_Change(ByVal Target As Range) 
   If Target.Cells.Count > 1 Then Exit Sub
   If Not Intersect(Target, Columns("b")) Is Nothing Then  ‘B열에 값이 바뀌면
      Application.EnableEvents = False                   ‘실행문을 한번만 실행
       'To do      
      Application.EnableEvents = True                   ‘다시 이벤트 동작을 활성화
   End If
End Sub

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]