I have a single select ListBox1 that contains unique
items from a list called "Data". I want to do subs with
the returned value of the Listbox.

1. Take selected item and delete all records (lines) with that unique
item. If that is the last item in "Data" an error handler to still
maintain the name and ListBox.

2. Take selected item and then AutoFilter by it. ending it by selecting
the items filtered by excluding headers.

3. Copy and paste that value in a cell on a different page.

-Randy-

..