Try this-

Private Sub UserForm_Initialize()
Dim i&, x&, Unique As Boolean
With Sheets("Active Collection")
For i = 3 To 300
If Cells(i, 4).Value < "" And i 3 Then
Unique = True
For x = 4 To i
If .Cells(x - 1, 4) = .Cells(i, 4).Value Then
Unique = False
Exit For
End If
Next x
If Unique Then
cmbClient.AddItem .Cells(i, 4).Value
End If
End If
Next i
End With
cmbClient.ListIndex = 0
End Sub

Regards,
billyb


---
Message posted from http://www.ExcelForum.com/