Why does my code not work? It always writes in row A
The code in green works fine.
Private Sub CommandButton100_Click()
Dim lItem As Long
Dim IRange As Integer
For lItem = 0 To ListBox1.ListCount - 1
ListBox1.ColumnCount = 2
With Worksheets("Sheet6")...