Put this in sheets code module

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
Application.EnableEvents = False
x = Target: Target = ""
If x < Application.WorksheetFunction.Min(Range("F:F")) Then MsgBox ("NEW
RECORD")
Target = x
Application.EnableEvents = True
End Sub


"delete automatically" skrev:

I would like a box to pop up saying NEW RECORD.

In column F if the cell is the minimun number then say NEW RECORD
For example F1 has 200
F2 has 199
F3 has 144 so now If I put 140 in F4 a box appears
sayin new record
but if I put 150 in cell A4 then nothing
is this possible?
Thanks