aaa long time... and easy answer using code write up... hmm
ok learn
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?