Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
' Instructions
End If
If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
' Instructions
End If
If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
' Instructions
End If
Application.EnableEvents = False
End Sub