Hello Zipcurs,

I won't bore you with the details of all that is happens when a object
is embedded. You simply need to modify your code to gain access to the
objects properties. Here is the modified code...


Code:
--------------------

Sub AddListBox()

Dim LB As Object

Set LB = ActiveSheet.OLEObjects("ListBox1").Object

With LB
.ListFillRange = "F1:F10"
.Font.Name = "Arial"
.MultiSelect = fmMultiSelectMulti
.Font.Name = "FuturaBlack BT"
.Font.Size = 14
End With

End Sub

--------------------


sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=556752