Reply to thread

Message

[QUOTE="Rob, post: 6458411"]
Garry,

Here is my code beginning with the workbook;

Private Sub Workbook_Open()
UF1.Show
End Sub
*************************************
'UF1:
Private Sub UserForm_Activate()
With UF1
.OB1.Value = False
.OB2.Value = False
.OB30.Value = False
.OB31.Value = False
.OB32.Value = False
.OB33.Value = False
.OB34.Value = False
.OB35.Value = False
.OB36.Value = False
.OB37.Value = False
End With

With UF1.Label3
.Visible = False
End With

Call LoadProdList2

End Sub
****************************************
Sub LoadProdList2()
Sheets("list").Select
Range("a1").Select

Dim AllCells As Range, cell As Range
Dim NoDupes As New Collection
Set AllCells = Sheets("list").Range("A2:A78")
On Error Resume Next
For Each cell In AllCells
NoDupes.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
For Each Item In NoDupes
UF1.LB1.AddItem Item
Next Item

With UF1
.Label3.Visible = False
.LB2.SetFocus
End With

End Sub
******************

Garry, thank you for taking time on this...

Rob
[/QUOTE]

Verification