Private Sub UserForm_Activate()
'Load the List of Customer Contacts
Application.ScreenUpdating = False
Dim LastCell As Long
Dim myrow As Long
Dim NoDupes As Collection
On Error Resume Next
LastCell = Worksheets("Contact List").Cells(Rows.Count, "A").End(xlUp).Row
With Sheets("Contact List")
..Select
Set NoDupes = New Collection
For myrow = 1 To LastCell
If .Cells(myrow, 1) < "" Then
NoDupes.Add .Cells(myrow, 1).Value, CStr(.Cells(myrow, 1).Value)
If Err.Number = 0 Then
ListBox1.AddItem Cells(myrow, 1)
End If
End If
Next
End With
Sheets("NavigationPage").Activate
Application.ScreenUpdating = True
End Sub


I have 2 values that are duplicates, there are loaded into the Listbox but ALL other (unique) values
are NOT populating??

Corey....