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

--
Regards,
Tom Ogilvy

"Stefan" wrote in message
...
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