Private Sub UserForm_Activate()
Dim LstRw As Long
'Determine the length of your list
LstRw = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To LstRw
If Cells(x, 2) = "" Then _
Me.ComboBox1.AddItem (Range("A" & x).Value)
Next x
End Sub
Private Sub UserForm_Activate()
Dim LstRw As Long
'Determine the length of your list
LstRw = Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
For x = 1 To LstRw
If Cells(x, 13) = "" Then _
Me.ComboBox1.AddItem (Range("B" & x).Value)
Next x
End Sub
Private Sub UserForm_Activate()
Dim LstRw As Long
'Determine the length of your list
LstRw = Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
For x = 1 To LstRw
If Cells(x, 2) <> "" And Cells(x, 13) = "" Then _
Me.ComboBox1.AddItem (Cells(x, 2).Value)
Next x
End Sub