TextBox Format/Editing Problem
 

I have a Userform that has several textboxes on it. The textboxes are
linked to cells on a worksheet via the controlsource property. I also
have formatted the textbox as a number with the following code:

Private Sub Textbox1_Change()

TextBox1.value = Format(TextBox1.value, "#,##0.00")

end sub

This works fine when the when the form activates, the textboxes have
the cell values and the proper format. The problem is when the user
tries to change a value in a textbox it will only let them input an
amount between 0 and 9.99. I've tried different formats such as
"#,###.##" and "0,000.00" with similar results.

Any help would be greatly appreciated.


--
henryhbb
------------------------------------------------------------------------
henryhbb's Profile: http://www.excelforum.com/member.php...o&userid=15774
View this thread: http://www.excelforum.com/showthread...hreadid=374411

TextBox Format/Editing Problem
 

This code will be invoked when ever cursor from textbox1 is moved to
another control.


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "#,##,000.00")
End Sub


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=374411