Setting properties to combobox

[Stefan]

I create a combobox on a new sheet and I want the font to
be "Arial" size=9 in the listbox. I can not figure out how
to write that code. Everything else works such as
ListFillRange and LinkedCell. Can somebody help?

Stefan

 

[mangesh_yadav]

In the properties, font, for the combobox (after right-clicking on th
control) do the required setting

- Manges

 

[Tom Ogilvy]

Sub SetFont()
Dim cbox As MSForms.ComboBox
Set cbox = ActiveSheet.OLEObjects("Combobox1").Object
cbox.Font.Name = "Ariel"
cbox.Font.Size = 9
End Sub