Multiple Listbox Select Followed By Delete Rows Of Slected

what is the vba code to delete the rows that the data you select from a list box. also how do you multiple select the data. the code i used is this

Sub RemoveDuplicate() Dim AllCells As Range, Cell As Range Dim NoDupes As New Collection Dim i As Integer, j As Integer
Dim Swap1, Swap2, Item

' The items are in A1:A105 Set AllCells = Range("p21105")

' The next statement ignores the error caused
' by attempting to add a duplicate key to the collection.

On Error Resume Next For Each Cell In AllCells NoDupes.Add Cell.Value, CStr(Cell.Value) Note: the 2nd argument (key) for the Add method must be a string Next Cell................