Combo box refer to a sheet

[imran91]

Hi guys

How should i create a combo box that will refer to a list name in a sheet? I have this code but it doesnt function. maybe there is some mistakes in my codes.

Private Sub ComboBox1_Change()
Dim ws As Worksheets
Set ws = Worksheets("LIST NAME")
For Row = 8 To 1000 'Each cell in the range
.AddItem ws.Cells(Row, 2)
Next Row
End Sub

Anyone can help me? or suggest another codes that much better?

Thank you

[AlphaFrog]

This will populate ComboBox1 with values from B8:B1000 on the worksheet called LIST NAME when the UserForm initializes.

Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets("LIST NAME").Range("B8:B1000").Value
End Sub

[imran91]

Hi AlphaFrog

Thanks for your code. It is work.