Spelling check in user form in VBA

Question

I want to check spelling in all labels that I have in a user form in VBA.

I would appreciate it if anyone could help me.

Answer 1

Private Sub UserForm_Initialize()
Dim ctrl As Object

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "Label" Then


        With ctrl
            If Not Application.CheckSpelling(.Caption) Then
                .ForeColor = vbRed
                .BackColor = vbYellow
            End If
        End With


    End If
Next
End Sub