Wrong number of arguments or invalid property assignment

[ngobung]

Hello
I have code for combobox as below ,but i cant not run .
Please let me know where it is wrong
Thanks.

Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim Rowcount As Double
Dim i As Integer

Set ws = ThisWorkbook.Sheets("allproduct")
Rowcount = Excel.WorksheetFunction.CountA(ws.Range("A:A"))
Me.cb_product.Clear
Me.cb_product.AddItem ""
For i = 2 To Rowcount
Me.cb_product.AddItem ws.Name("B" & i)
Next
End sub

[Zvoni]

AddItem ws.Name?????

Shouldn't that be ws.Range?

[ngobung]

AddItem ws.Name?????

Shouldn't that be ws.Range?

Thanks