Just nu så har jag bara ett problem kvar:


<code>
On Error Resume Next
For i = 0 To List3.ListCount - 1
If List3.Selected(i) Then
List3.RemoveItem i
End If
Next i
</code>
Vad som händer är att den plockar bort namnet som finns i listan, men det finns någonting fortfarande "osynligt" kvar, kanske mellanslag eller någonting.
Hur löser jag det?

Hej
Så här kanske
On Error Resume Next
For i = 0 To List3.ListCount - 1
If List3.Selected(i) Then
List3.List(i) = ""
List3.RemoveItem i
End If
Next i

spånar utan kontroll Sven

För varje post du tar bort flyttas efterföljande poster upp. Om nästa post är markerad kommer den ej att tas bort.<br>
<br>
Enklast är att gå baklänges:
<code>
Dim Index As Long
For Index = List3.ListCount - 1 To 0 Step -1
If List3.Selected(Index) Then
List3.RemoveItem Index
End If
Next
</code>

Tack nu fungerar den perfekt