Private Sub TextBox1_Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox1) Then
If TextBox1.Value < 0 Then
TextBox1 = 0
End If
End If
End Sub
--
Regards
Dave Hawley
www.ozgrid.com
"Gabe" wrote in message
...
I went in and formatted a cell to: 0;"0";0 so that all negative numbers
will
be converted to zero. I have a textbox on a userform that I need to do the
same thing. What code would I use? I tried this but it doesn't work:
txtRemain.Value = Format(txtRemain.Value, "#,#00;""0""")
Any help would be greatly appriciated.
Thanks,
~Gabe