Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
'<!-- 오류를 무시하고 다음 단계로 넘어갑니다. -->
On Error Resume Next
 
'<!-- 이벤트 매크로를 비활성화합니다. -->
Application.EnableEvents = False
 
'<-- 선택된 셀의 행/열 번호를 받아옵니다. -->
Dim r As Long: r = Target.Row
Dim c As Long: c = Target.Column
 
'<-- 선택된 셀이 지정한 범위 안의 셀일 경우 명령문을 실행합니다. -->
If Not Intersect(Target, Range("범위")) Is Nothing Then   '범위를 입력합니다.
    If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
    '명령문 작성
    End If
End If
 
'<!-- 이벤트 매크로를 활성화합니다. -->
Application.EnableEvents = True
 
End Sub