Listbox with "other" option

[Baxter]

Okay, so I have my listbox with several different vendor names in it, but I also want an option so that if a user chooses "other" or "not listed" then a popup comes up asking for the name of the new vendor, accepts that input and then puts it in the listbox. Any ideas???

[Leith Ross]

Hello Baxter,

Place this code in your ComboBox's After_Update event. This will add the vendor to list, but it is not permenant. You would need to store your vendor list on a worksheet or in a text file if you want to keep the changes to the list. If you have changed the name of the ComboBox from the default ComboBox1, be sure to make the change in the code also.
_________________________________________________________________

Private Sub ComboBox1_AfterUpdate()

With ComboBox1
If .List(.ListIndex) = "Other" Then
NewVendor = InputBox("Enter Name of New Vendor Below.")
If NewVendor <> "" Then .AddItem NewVendor
.Text = NewVendor
End If
End With

End Sub
_________________________________________________________________

Hope this helps,
Leith Ross

[Baxter]

Thanks, Once again you have bailed me out. You word the answers in ways that I can definitely learn and grow upon too. Thanks again.

Baxter