Try changing:
If TextBox3.Value < "" And Val(TextBox3.Value) = 0 Then
To:
If Not IsNumeric(TextBox3.Value) The
--
colofnatur
-----------------------------------------------------------------------
colofnature's Profile:
http://www.excelforum.com/member.php...fo&userid=3435
View this thread:
http://www.excelforum.com/showthread.php?threadid=54478