Microsoft Office Forums - View Single Post

gmayor · 01-10-2018, 10:31 PM

What is the point of this exercise? Why not simply set the changed properties of the controls as you need them when you call the userform?

Code:

Sub Example()
Dim ofrm As New UserForm1
Dim oCtrl As Control
    With ofrm
        For Each oCtrl In ofrm.Controls
            If (TypeName(oCtrl) = "TextBox" Or TypeName(oCtrl) = "CheckBox") Then
                With oCtrl
                    .Font.Size = 12
                    .Font.Name = "Calibri"
                    .Width = 120
                End With
            End If
        Next oCtrl
        .Show
        Unload ofrm
    End With
    Set ofrm = Nothing
End Sub