aaa long time... and easy answer using code write up... hmm
Dim x&, y& For x = 1 To ListBox1.ColumnCount For y = 1 To ListBox1.ListCount If x = 1 Then Cells(y, 2) = ListBox1.List(y - 1, x - 1) If x = 2 Then Cells(y, 1) = ListBox1.List(y - 1, x - 1) Next Next
X variable I using for columns, then switch that is a easy job to do. Its done.
So exercise for you now - you must read about that and make it.
If you had a more than 2 columns in control, learn about back loop without condition, to switch it opposite count. Do you?