엑셀 VBA 특정셀을 클릭하면 작동하는 매크로

어디서 펌 ㅠㅜ 까먹음

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '모듈 매크로가 아니라
    '해당 시트에 입력하는 매크로
    'VBE 상단의 Worksheet 선택후 Change를 선택하면
    '자동으로 입력되는 Private Sub~임.

On Error GoTo ErrCode
    '예상치 못한 상황이 발생하면
    'Errcode(만든이름)로 이동!

If Not Intersect(Target, Range("H11")) Is Nothing Then
           '교집합(타겟, 열범위)
           'Not ~ Nothing : 이중부정으로 긍정이다.
           '즉 교집합이 하나라도 있다면~!!
           Range("H9").Value = "ON"
           Exit Sub
Else
End If
           
           
If Not Intersect(Target, Range("H12")) Is Nothing Then
           '교집합(타겟, 열범위)
           'Not ~ Nothing : 이중부정으로 긍정이다.
           '즉 교집합이 하나라도 있다면~!!
           Range("H9").Value = "OFF"
           Exit Sub
Else
End If


'번호 클릭1
If Not Intersect(Target, Range("B4:B23")) Is Nothing Then
           '교집합(타겟, 열범위)
           'Not ~ Nothing : 이중부정으로 긍정이다.
           '즉 교집합이 하나라도 있다면~!!
           Range("G4").Value = Target.Value
           Exit Sub
Else
End If


'번호 클릭2
If Not Intersect(Target, Range("D4:D23")) Is Nothing Then
           '교집합(타겟, 열범위)
           'Not ~ Nothing : 이중부정으로 긍정이다.
           '즉 교집합이 하나라도 있다면~!!
           Range("G4").Value = Target.Value
           Exit Sub
Else
End If


ErrCode:
    '아래줄이 End Sub로 조용히 끝나버림!

End Sub