Elsa Matilde respondió:
Utilizá un solo bucle con estas instrucciones: On Error Resume Next i=0 For Each Celda In Range("A2:A50") Workbooks("Libro1.xls").Sheets("Hoja1").ListBox1.AddItem Celda Workbooks("Libro1.xls").Sheets("Hoja1").ListBox1.List(i,1) = Celda.offset(0,1)...