Fjerne flere poster på en gang i listbox

Hej

Jeg har en listbox hvor multiselect er sat til true. Ved tryk på en knap overføres markerede poster til et regneark. Problemet er, at jeg gerne vil have at posterne som er markeret bagefter fjernes fra listbox'en. Det skal gerne ligge efter den følgende kode som jeg anvender, og posterne skal blive fjernet på én gang hvis muligt:

Dim objRange As Range
Dim i As Integer
       
For i = 0 To Me.listeluk.ListCount - 1
        If Me.listeluk.Selected(i) = True Then
            With Me.listeluk
                objRange.Value = .List(i)
                objRange.Offset(, 1).Value = .List(i, 1)
                objRange.Offset(, 2).Value = .List(i, 2)
                objRange.Offset(, 3).Value = .List(i, 3)
                objRange.Offset(, 4).Value = .List(i, 4)
                objRange.Offset(, 5).Value = .List(i, 5)
                objRange.Offset(, 6).Value = .List(i, 6)
                Set objRange = objRange.Offset(1)
                             
            End With
        End If
Next i