Hi,

i don't know how to copy items added by AddItem with a combobox
at a time. but i suppose the following can copy items,

Dim varList As Variant
varList = ComboBox1.List
ComboBox1.Cut
Workbooks("The workbook").Sheets("The sheet").Activate
ActiveSheet.Range("The Range").Select
ActiveSheet.Paste
Selection.Object.List = varList

when i copy a combobox, the added items are lost always
whether by macro or manual operation. and they are not saved
in a workbook file. (Excel2000)

--
HTH,

okaizawa


MBais wrote:
Hi

My problem is when i try to cut and paste a combobox from one sheet to
another.

The thing is that i first update the combobox by the addItem function,
then i cut the combobox and paste it in another worksheet. But when i
paste it all the added items are lost. I have also tried to copy the
combobox to another worksheet, and everything seems fine with the
original combobox containing all the added items. This is the code
sequence:

"an addItem loop adding the elements" then
ComboBox1.Cut
Workbooks("The workbook").Sheets("The sheet").Activate
ActiveSheet.Range("The Range").Select
ActiveSheet.Paste

What seems a bit strange to me, is when I manually with the
ListFillRange in properties add items to the combobox and cut/paste the
combobox everything goes just fine.

All help, is good help