Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D5:F100")) Is Nothing Then
If Range("F" & Target.Row) < 0 Then
MsgBox "CHECK!!!!"
Range("F" & Target.Row).Select
End If
Exit Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ElseIf Not Intersect(Target, Range("I5:N100")) Is Nothing Then
If Range("N" & Target.Row) < 0 Then
MsgBox "CHECK!!!!"
Range("N" & Target.Row).Select
End If
Exit Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ElseIf Not Intersect(Target, Range("T5:V100")) Is Nothing Then
If Range("V" & Target.Row) < 0 Then
MsgBox "CHECK!!!!"
Range("V" & Target.Row).Select
End If
Exit Sub
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub