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