source for combobox on userform

**carlton123** · 03-03-2008, 04:42 PM

COCKS = Worksheets("SET").Range("B65336").End(xlUp).Row
unknown = Worksheets("SET").Range("B2:B" & COCKS)

is it possible to replace the unknown bit in the code so it displays that range in the combo box? any help please

**Simon Lloyd** · 03-03-2008, 05:00 PM

Private Sub userform_initialize()
Dim MyCell As Range
Dim COCKS As Integer
COCKS = Worksheets("SET").Range("B65336").End(xlUp).Row
For Each MyCell In Worksheets("SET").Range("B2:B" & COCKS)
Me.ComboBox1.AddItem (MyCell)
Next MyCell
End Sub

**VBA Noob** · 03-03-2008, 05:07 PM

carlton123,

Please read forum rules and the message to cross posters below

VBA Noob

**carlton123** · 03-04-2008, 03:30 PM

thanks for that works a treat. sorry for cross posting got mixed up

**carlton123** · 03-04-2008, 03:54 PM

I Have modified it slightly but when i use exact same code for the hens i end up with a blank at the bottom i don't know where i have gone wrong. please see attached