Userform - ComboBox Formatting

[vba_hugo]

Good Morning,

Quick question, I want to bold the text of ComboBox1 when I select OptionButton1 but the following code is not working:

Sub ComboBox1_format()    If OptionButton1 = True Then
    ComboBox1.Text("Select a NAICS Code") = Bold
End Sub

How do I fix this?

Thanks

 

[Domenic]

Try the following event handler for your option button...

Private Sub OptionButton1_Click()
    Me.ComboBox1.Font.Bold = True
End Sub

If you only want to bold the text in your combo box when the text equals "Select a NAICS Code", try the following instead...

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] OptionButton1_Click()
    [COLOR=darkblue]If[/COLOR] Me.ComboBox1.Value = "Select a NAICS Code" [COLOR=darkblue]Then[/COLOR]
        Me.ComboBox1.Font.Bold = [COLOR=darkblue]True[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

Hope this helps!