I've have also experienced this problem with listboxes.
Try this

Worksheets("Sheet1").ListBox1.IntegralHeight = False

<<<Your Code

Worksheets("Sheet1").ListBox1.IntegralHeight = True

This worked for me and will hopefully stop you having to put a dumm
item in your array.

hope you have some joy

--
Jimbo
-----------------------------------------------------------------------
Jimbo1's Profile: http://www.excelforum.com/member.php...fo&userid=3063
View this thread: http://www.excelforum.com/showthread.php?threadid=51728