Originally Posted by
Aflatoon
You cannot use Additem on a specific column - you should populate the second column as you add the first:
[vba]
Private Sub UserForm_Initialize()
Dim col As Collection
Dim col2 As Collection
Dim sht As Worksheet
Dim lng As Long
Dim n As Long
Set col = New Collection
Set col2 = New Collection
Set sht = ActiveSheet
On Error Resume Next
With ActiveSheet
For lng = 4 To 500
If Cells(lng, 6) <> "" Then
col.Add .Cells(lng, 6).Value, _
CStr(.Cells(lng, 6).Value)
If Cells(lng, 7) <> "" Then
col2.Add .Cells(lng, 7).Value, _
CStr(.Cells(lng, 7).Value)
End If
End If
Next
End With
On Error GoTo 0
With Me.Lst1
.Clear
For n = 1 To col.Count
.AddItem col(n)
.List(.ListCount - 1, 1) = col2(n)
Next n
End With
Set col = Nothing
Set col2 = Nothing
Set sht = Nothing
End Sub
[/vba]
Note: with the way you populate your collections, it is possible for your data to be mismatched compared to the way it appeared in the worksheet. I do not know if this is an issue for you.