Hi all,

I have this code running in a ExclusivAccess WorkBook, but when I try
to run it in a Share Workbook, pop ups a error sign saying "Can assign
ListFillRange". I searched in the "Features that are unavailable in
shared workbooks" but didn;t find any clue not allowing to use the
code.


Code:
--------------------
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.ListFillRange = "$P$2" 'Letrero Cotizacion Actual
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.LinkedCell = "$L$40"
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.DropDownLines = 1
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.ListIndex = 1
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.Display3DShading = True
--------------------


Could you give a hand with this?

Should I use Active Controls instead? or is something else?

Thanks in advance

Jose Luis


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