Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 14 Then  'COLUMN N
    If Not IsNumeric(Target.Value) Then
        MsgBox "Please enter LBS ran with only numbers.", vbExclamation
        Exit Sub
    End If
    If Len(Target.Value) < 4 And Target.Value <> 0 Then
        MsgBox "Please enter LBS ran with comma included.", vbExclamation
        Exit Sub
    End If
End If

If Target.Column = 15 Then  'COLUMN O
    If Not IsNumeric(Target.Value) Then
        MsgBox "Please enter LBS ran with only numbers.", vbExclamation
        Exit Sub
    End If
    If Len(Target.Value) < 4 And Target.Value <> 0 Then
        MsgBox "Please enter LBS ran with comma included.", vbExclamation
        Exit Sub
    End If
End If


'IF COLUMN Q IS MARKED, BUT NOT COMPLETE TEXT TURNS RED
If Target.Column = 18 Then
    If Target.Value = "YES" Or Target.Value = "Yes" Or Target.Value = "yes" Then 'Marks text green
        With Target.Font
            .Color = -16724992
            .TintAndShade = 0
        End With
    Else
        With Target.Font
            .Color = vbRed
            .TintAndShade = 0
        End With
    End If
End If


End Sub