Sheets("Home").OLEObjects("ListBox1").ListFillRang e = _
Range("wrkshtrng").Address
"ranswrt" wrote:

I have a listbox that I added to a worksheet. I also have a procedure that
adds items to the range for the listbox. I need to update the listfillrange
so that the new items are added to the listbox. I used the following code:
Sheets("Home").Shapes("ListBox1").ListFillRange = "wrkshtrng"
This doesn't seem to be working. What am I doing wrong?
Thanks