Can Additem be used to fill a multiple column listbox from a range in a worksheet? The code below shows what I'm trying to do:
Code:
Sub LoadList()
Dim i As Long
Dim lastRow As Long
With Sheets("Raw data Folio (2)")
.Activate
lastRow = .Range("AN65536").End(xlUp).Row
For i = lastRow To 2
If .Range("AN" & i) <> .Range("AN" & i - 1) Then
' Add values to same row of multiple column
' listbox for the following cells
' A(i)
' U(i)
' K(i)
' etc
End If
Next i
End With
End Sub