OK.
I made a test and get it to work when I used AddItem ore ListFillRange
But when I assigne data to the ComboBox like

vaData = .Range(.Range("A2"), .Range("A65536").End(xlUp)).Value
..List = vaData

It not work with autofill!

Is it wrong way to do it?

I made some outher soulution of this.
(Data on one sheet and Combobox on other)
Make a Name and give it the range
rnRange = .Range(.Range("A2"), .Range("A65536").End(xlUp))
rnRange.Name = "MyRange"

And in the property for the Combobox (ListFillRange) write the range
name "MyRange"

The the autofill works

EW


--
EagleWolf
------------------------------------------------------------------------
EagleWolf's Profile: http://www.excelforum.com/member.php...o&userid=28756
View this thread: http://www.excelforum.com/showthread...hreadid=484445