Selection Change affecting cells outside of range - excel

Question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const Col As Long = 2
If Not Intersect(Target, Range("L7:L98")) Is Nothing Then
Application.EnableEvents = False
Target.Value = "T"
Target.Offset(, 1).Resize(, Col).ClearContents
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("M7:M98")) Is Nothing Then
Application.EnableEvents = False
Target.Value = "I"
Target.Offset(, 1).ClearContents
Target.Offset(, -1).ClearContents
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("N7:N98")) Is Nothing Then
Application.EnableEvents = False
Target.Value = "D"
Range(Target.Offset(, -1), Target.Offset(, -2)).ClearContents
Application.EnableEvents = True
End If
End Sub
This code is causing a slight problem for me. Any time I select an entire row within the ranges, every cell within the range gets changed to "T". Given the consistency of the code, if I delete the string with "T", then the entire row would be filled with "I"
What can be adjusted to trigger only if cells within the range are selected?

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const Col As Long = 2
If Target.Count > 1 Then
Exit Sub
End If
Added this to the top of the code, it will now exit the Sub if more than one cell is selected even if one of the selected cells are within the appropriate range.

Answer 2

After checking to see if the Selection intersects with the various ranges, only deal with the part of Target that intersects with the various ranges.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const Col As Long = 2
If Not Intersect(Target, Range("L7:L98")) Is Nothing Then
Application.EnableEvents = False
With Intersect(Target, Range("L7:L98"))
.Value = "T"
.Offset(, 1).Resize(, Col).ClearContents
End With
End If
If Not Intersect(Target, Range("M7:M98")) Is Nothing Then
Application.EnableEvents = False
With Intersect(Target, Range("M7:M98"))
.Value = "I"
.Offset(, 1).Resize(, Col).ClearContents
End With
End If
If Not Intersect(Target, Range("N7:N98")) Is Nothing Then
Application.EnableEvents = False
With Intersect(Target, Range("N7:N98"))
.Value = "D"
.Offset(, 1).Resize(, Col).ClearContents
End With
End If
Application.EnableEvents = True
End Sub
Optional Alternative:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const Col As Long = 2
If Not Intersect(Target, Range("L7:L98")) Is Nothing Then
Application.EnableEvents = False
With Intersect(Target, Range("L7:L98"))
.Value = "T"
.Offset(, 1).Resize(, Col).ClearContents
End With
ElseIf Not Intersect(Target, Range("M7:M98")) Is Nothing Then
Application.EnableEvents = False
With Intersect(Target, Range("M7:M98"))
.Value = "I"
.Offset(, 1).Resize(, Col).ClearContents
End With
ElseIf Not Intersect(Target, Range("N7:N98")) Is Nothing Then
Application.EnableEvents = False
With Intersect(Target, Range("N7:N98"))
.Value = "D"
.Offset(, 1).Resize(, Col).ClearContents
End With
End If
Application.EnableEvents = True
End Sub