Use Macro to Format UserForm Object

R

RussellT

I have a UserForm with dozens of textboxes on it. I periodically need to
change the formatting of the textboxes and I been trying to write a macro to
do it to no avail. Here' what I thought would work but it doesn't. HELP
PLEASE. THANKS

Sub ChangeFonts_Click()
Dim Boxes As Long
With editForm
For Boxes = 1 To 78
("TextBox" & Boxes).font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
Next
End With
End Sub
 
R

Rick Rothstein

Try this code instead and see if it does what you want...

Sub ChangeFonts_Click()
Dim C As Control
For Each C In editForm.Controls
If TypeOf C Is msforms.TextBox Then
With C.Font
.Name = "Arial"
.Size = 10
.Bold = True
End With
End If
Next
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top