I have 36 textboxes spread over 1 Userform - Multipage3

I'd like to change the:
1) font size to 12
2) Font Name to Arial
3) Bold
upon running 1 Macro

Is such a macro available? If so .. Where can I get it?

Are you doing all the textboxes?

Option Explicit
Private Sub UserForm_Initialize()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
With ctrl.Object.Font
.Bold = True
.Name = "Arial"
.Size = 12
End With
End If
Next ctrl
End Sub

If you're not doing them all, you could skip based on name--or cycle through the
ones with nice names (TextBox01 thru TextBox36????).



JMay wrote:

I have 36 textboxes spread over 1 Userform - Multipage3

I'd like to change the:
1) font size to 12
2) Font Name to Arial
3) Bold
upon running 1 Macro

Is such a macro available? If so .. Where can I get it?

--

Dave Peterson

Thanks Dave,

This routine is a one-time experience. Seems like it should be placed into
a standard module. To do so would it so something like:

Sub Foo
Dim ctrl as Control
With Userform1
YOUR CODE starting with For Each...
End With


Thanks Jim
"Dave Peterson" wrote:

Are you doing all the textboxes?

Option Explicit
Private Sub UserForm_Initialize()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
With ctrl.Object.Font
.Bold = True
.Name = "Arial"
.Size = 12
End With
End If
Next ctrl
End Sub

If you're not doing them all, you could skip based on name--or cycle through the
ones with nice names (TextBox01 thru TextBox36????).



JMay wrote:

I have 36 textboxes spread over 1 Userform - Multipage3

I'd like to change the:
1) font size to 12
2) Font Name to Arial
3) Bold
upon running 1 Macro

Is such a macro available? If so .. Where can I get it?

--

Dave Peterson

I would think you'd want the textbox formatted that way each time you show the
userform--but that's just a guess.

JMay wrote:

Thanks Dave,

This routine is a one-time experience. Seems like it should be placed into
a standard module. To do so would it so something like:

Sub Foo
Dim ctrl as Control
With Userform1
YOUR CODE starting with For Each...
End With

Thanks Jim
"Dave Peterson" wrote:

Are you doing all the textboxes?

Option Explicit
Private Sub UserForm_Initialize()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
With ctrl.Object.Font
.Bold = True
.Name = "Arial"
.Size = 12
End With
End If
Next ctrl
End Sub

If you're not doing them all, you could skip based on name--or cycle through the
ones with nice names (TextBox01 thru TextBox36????).



JMay wrote:

I have 36 textboxes spread over 1 Userform - Multipage3

I'd like to change the:
1) font size to 12
2) Font Name to Arial
3) Bold
upon running 1 Macro

Is such a macro available? If so .. Where can I get it?

--

Dave Peterson


--

Dave Peterson