For Each ctl In .Controls
If TypeName(ctl) = "TextBox" Then
ctl.Text = Format(ctl.Text,"#,##0")
End If
Next ctl

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"umich1967" <u26373@uwe wrote in message news:660020f0bfef7@uwe...
I have a userform with many text boxes, all of which need to be formatted
as
#,##0. I can write the code for each one seperately (I have started doing
this), but I thought there might be some coding I can do which will format
them all at once. There are so many text boxes on the form that doing
this
seperately would be cumbersome.

Thanks in advance for any help.

Scott Settle