Enable text box VBA

[hanif]

Hi All,

I have a optionbutton and few text boxes (which are disabled) in a userform and I was wondering is there a way to enable all text boxes instead of one at once to avoid doing individually. I use the following code to enable all at once but I want one of them to be kept diasabled. What shall I add to the following to make it happen?

Thanks

    For Each ctl In Me.Controls
        If TypeName(ctl)="TextBox" AND OptionButton1.Enabled = True Then
            ctl.Enabled = True
        End If
    Next ctl

[hanif]

I figured it out. I am posting the code in case if anyone having a same problem too.

Private Sub OptnbtnYes_Click()
For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" And Me.OptnbtnYes.Enabled = True And ctl.Name <> "txtOpexOvrll" Then
            ctl.Enabled = True
            ctl.BackStyle = fmBackStyleOpaque
        End If
    Next ctl
End Sub