Delete button to remove cell value from Listbox

[jpruffle]

Hi,

I have a list box that shows a range of cells (called emailrange). I want to add a Delete button that enables a selected value in the Listbox to be deleted if necessary (just the cell value not the row).

The code I have thus far is below:

Please Login or Register  to view this content.

Any help would be appreciated.

Thank you

[royUK]

Do you mean deleted from the sheet?

[jpruffle]

Yes,

The list is copied from a second sheet called ConKins and all email addresses that are copied are contained within cells B2:B100 within that sheet. The Listbox on Sheet1 (Email) pulls the pasted data and places it in cells A2 down. I want to be able to delete from the range on the Email sheet from range A2 etc. So the original list contained on ConKins stays intact.

Than you once again!

[royUK]

Try this

Please Login or Register  to view this content.

[jpruffle]

HI,

I have added that code on the line:

.RemoveItem Rw

I get an error stating Run Time Error, Unspecified error. I have Excel 2000 is it something to do with that?

Does that code remove a cell rather than a row?

Thanks

[royUK]

The code deletes a cell's contents.
You need to attach the workbook.

[jpruffle]

Attached an example of the error.

Thank you again.

[royUK]

There's no data to test with

[jpruffle]

Apologies attached the wrong file!

[royUK]

First delete all the existing code in UserForm1, then replace with this

Please Login or Register  to view this content.

[jpruffle]

Thank you,

The line: .RemoveItem (Rw) came up with an error so I took it out of the code and it worked fine.

Thanks again