Cita:
Iniciado por forrestgump 
Ok David...lo que pasa esque si pongo el codigo como me dices me marca error en que Falta el final de END IF ademas si elimino el lo de EXIT SUB empieza a insertar los nombres entre espacios y asi no se deja eliminar...
en fin amigo esta muy mal mi codigo..pero se AGRADECE SU AYUDA modificare todo de nuevo...
GRACIAS
Debes colocarlo en la misma línea como te puse:
Código:
If List2.ListIndex = -1 Then List2.RemoveItem List2.ListIndex
No debes colocar así (si lo haces te dirá que falta End If):
Código:
If List2.ListIndex = -1 Then
List2.RemoveItem List2.ListIndex