I have several userforms built with about 60 textboxes. I have the
textboxes
bound to cells on a worksheet usung the controlsource property. I have
also
created a class module for all the textboxes so that events can occurr
inside
of one code for all of them. In the class moduel I have the textboxes

formatted with the Change event with the following code:

Public WithEvents textgroup As MSForms.TextBox

Private Sub textgroup_Change()
textgroup.Value = Format(textgroup.Value, "Standard")
End Sub

This works fine when the form first loads, the values from the linked
cells
load into the form and they are formatted properly. However, when the
user
goes to change a value it will only let them enter 3 digits. The format
seems
to only allow entry of numbers after the decimal point. I've tried
using
other events to handle the format such as AfterUpdate and Exit and they

either do not work or they are unavailable to the new class. Is there
any
way to make this work? The only other way that I can think of is to
write a
separate format code for each textbox, and needless to say that would
take a
while and make the code rather sloppy. I would greatly appreciate any
help
anyone can offer.

Thanks

Henry


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