Compare two listboxes 1

hey this should do what you want.

Change these to the names you want:
List0 = name of first list box
list2 = name of second list box

***********************************************************
Private Sub Command4_Click()
Dim strDifference As String

strall = ""
strDifference = ""
With List0
For intcount = 0 To .ListCount - 1
With List2
For r = 0 To .ListCount - 1
If List0.Column(0, intcount) = .Column(0, r) Then
strDifference = ""
Exit For
Else
strDifference = List0.Column(0, intcount)
End If
Next r
End With
If strDifference = "" Then
Else
strall = strall & "," & strDifference
End If
Next intcount
End With
MsgBox Mid(strall, 2)
End Sub
**********************************************************

tell me if this works and if you have more problems.

Ramzi

Thanks for your fast reply. It was exactly what i needed.
why didn't i write the forum earlier?