Hej
hvis du skiver
ws.Cells(iRow, 2).Value = Me.ListBox1.Column(0)
ws.Cells(iRow, 3).Value = Me.ListBox1.Column(1)
ws.Cells(iRow, 4).Value = Me.ListBox1.Column(2)
ws.Cells(iRow, 5).Value = Me.ListBox1.Column(3)
i stedet for
ws.cells(irows, 2).value = Me.listbox1.value