Los 5 listbox, ¿tienen la misma información?
¿O de qué forma identificas la relación entre los 5 listbox?
Con estas instrucciones borras un registro de un listbox,
Y funciona así, seleccionas un registro del listbox y después de presionar un botón se realiza el borrado.
Private Sub CommandButton1_Click()
With ListBox1
For ind = 0 To .ListCount - 1
If .Selected(ind) Then
ListBox1.RemoveItem (ind)
End If
Next
End With
End Sub
Nota: si el listbox se llenó con un rango de celdas de excel, es decir, si utilizas esta instrucción para llenar el listbox: ListBox.RowSource = "A2:A20", no se puede borrar el registro del listbox.
Si todos los listbox tienen los mismos registros y cada registro tiene la relación con los registros de los otros listbox, es decir, si el registro uno del listbox corresponde al registro uno de los otros listbox y el registro 2 del listbox corresponde al registro 2 de los demás listbox y así sucesivamente, entonces, podrías aplicar la siguiente macro:
Private Sub CommandButton1_Click()
'por.Dam
For ind = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(ind) Then
ListBox1. RemoveItem (ind)
ListBox2. RemoveItem (ind)
ListBox3. RemoveItem (ind)
ListBox4. RemoveItem (ind)
ListBox5. RemoveItem (ind)
End If
Next
End Sub
Saludos.Dam
Si es lo que necesitas.