Hello Simon,

You can correct this problem this way...

CORRECTION #1 MOVE CLEARING THE TEXTBOX

Sub Add_Entry()
Range("A7").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value
Range("B1").Select
If TextBox1.Value 15310 Then MsgBox "Outside Limits - Schedul
Maintenance", vbCritical + vbOKOnly, "Urgent"
TextBox1.Value=""
End Sub


Sincerely,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=37600