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