Dim cell As Range
For Each cell In Range("CPSBs")
Me.ComboBox1.AddItem cell.Value
Next cell
Set cell = Nothing

" wrote:

How do I get this to work?


Private Sub UserForm_Activate()

X = 0
Do While Range("CPSBs").Offset(X, 0).Value < ""
Me.ComboBox1.AddItem (Range("CPSBs").Offset(X, 0).Value)
X = X + 1
Loop


End Sub

I am not sure how to do this at all.

thanks