But this works:

Sheets(1).Shapes("ComboBoxA").DrawingObject.ListFi llRange = "lista2"

Shapes don't have a direct .listfillrange property. But lots of properties are
buried under other properties.

If you select
Sheets(1).Shapes("ComboBoxA")
and then add a watch (shift-F9)

You can see all those properties that that shape has.

You could also go right to the combobox itself:
Sheets(1).ComboBoxA.ListFillRange = "list2a"

Working with the selection hides lots of these properties--but then your code
has to select stuff.

jose luis wrote:

Can you help understand why this code works:

Code:
--------------------
Sheets(1).Shapes("ComboBoxA").Select
Selection.ListFillRange = "lista2"
--------------------

and this one don't:

Code:
--------------------
Sheets(1).Shapes("ComboBoxA").ListFillRange = "lista2"
--------------------

Thank you all

Joe

--
jose luis
------------------------------------------------------------------------
jose luis's Profile: http://www.excelforum.com/member.php...o&userid=13312
View this thread: http://www.excelforum.com/showthread...hreadid=381040

--

Dave Peterson