Microsoft KB Archive/188496

Knowledge Base

XL98: Error Using RemoveItem Method

Article ID: 188496

Article Last Modified on 6/17/2005

---

APPLIES TO

• Microsoft Excel 98 for Macintosh

---

This article was previously published under Q188496

SYMPTOMS

If you use the RemoveItem method to remove an entry from either a ListBox or ComboBox control, you may receive the following error message:

Run-time error '-2147483645 (80000003)':
Invalid argument.

CAUSE

This problem may occur when both of the following conditions are true:

• You use the RemoveItem method for either a ListBox or ComboBox control. -and-
  

• The ListBox or ComboBox control is data bound (the List property is set to a range on a worksheet).

RESOLUTION

In order to remove an item from either a ListBox or ComboBox control when the control is bound to a worksheet range, reset the range reference for the List property of the control.

The following example creates a UserForm with a ListBox control and a CommandButton (with associated macro code) for removing an item from the ListBox.

NOTE: The macro does not permanently delete any items from your source data; it changes the reference for a defined name. Because the List property is set to this defined name, the items that are displayed in the list vary according to the range you assign to the defined name.

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

Example

1. Close and save any open workbooks, and then create a new workbook.
2. Define the range A1:A5 in Sheet1 as myrange.
3. Type the following data in Sheet1:

   A1: a
   A2: b
   A3: c
   A4: d
   A5: e

4. Start the Visual Basic Editor (press OPTION+F11).
5. On the Insert menu, click UserForm.
6. Click the ListBox control in the Toolbox and add a ListBox to the UserForm.

7. Double-click the UserForm. The Code window will appear. Type the following macro code:

       Private Sub UserForm_Initialize()
          ListBox1.List = Worksheets(1).Range("myrange").Value
       End Sub
                           

8. Add a CommandButton control to the UserForm.
9. Double-click the CommandButton to display the Visual Basic module associated with the UserForm.

10. For the Click event of the CommandButton control, type the following macro code:

        Private Sub CommandButton1_Click()
    
            Sheet1.Range("myrange").Resize _
                (Sheet1.Range("myrange").Rows.Count - 1, 1).Name _
                = "myrange"
    
            ListBox1.List = Worksheets(1).Range("myrange").Value
    
        End Sub
                            

11. Press F5 to run the UserForm.
    
    The UserForm appears and the ListBox control is populated with the values from A1:A5.
12. Click the CommandButton.
    
    The last value in the list is removed from the ListBox.
13. Close the UserForm.

STATUS

This behavior is by design of Microsoft Excel 98 Macintosh Edition.

REFERENCES

For more information about Adding Items to a ListBox Control, click the Office Assistant, type listbox add, click Search, and then click to view "Ways to put data in a ListBox or ComboBox."

NOTE: If the Assistant is hidden, click the Office Assistant button on the Standard toolbar. If the Assistant is not able to answer your query, please see the following article in the Microsoft Knowledge Base:

176476 OFF: Office Assistant Not Answering Visual Basic Questions

Additional query words: XL98

Keywords: kberrmsg kbbug kbprogramming kbdtacode kbpending KB188496

---

Send feedback to Microsoft

© Microsoft Corporation. All rights reserved.