title: How to delete multiple selections in a listbox?
body: <p>So I have a userform that has a: 
  listbox called "lstentries" 
  radio button called "Delete". 
  Also, the "Start" is the name of the cell that is the top left corner of the table of rows. </p>
  
  <p>I already set the code so it can select multiple entries in the listbox. However, when I select multiple entries it only deletes the first row that it comes to. So i tried making a while loop so it keeps deleting the selected ones, but that's not working either. I get the "Run-time error '1004' - Method 'Range' of object'_Global' failed" </p>
  
  <p>Hopefully someone can help me out. Here is the snippet of the code where it deletes the rows. Thanks in advance. </p>
  
  <pre><code>If optDelete.Value = True Then
          Dim delete As Range
          Do While True
              Set delete = Range("start").Offset(lstEntries.ListIndex, 0)
              delete.EntireRow.delete Shift:=xlUp
          Loop
      End If
  </code></pre>