What is wrong with this code

[Deloka]

'Uses a loop to step through each cell in the new make list
'and adds each make to the combo box.
'If a value is blank, it is not added.
For Each cell In Worksheets("Data").Range("j4:j26")
If IsEmpty(cell) = False Then
cbomake.AddItem cell.Value
End If
Next cell

I keep getting an error on the line in red

 

[Rick Rothstein]

When the error occurs, do you get a dialog box offering you a Debug button? If so, what is the error message displayed in the dialog box? Next, click the Debug button and execute this code line in the Immediate Window...

? Cell.Address

What gets printed out. Also, where is the ComboBox... on a worksheet or on a UserForm? If on a worksheet, where did you get it from... is it a Forms' ComboBox or an ActiveX ComboBox?

 

[Deloka]

This is the complete code.
I am using Control combo box

Private Sub cbocatalog_Change()
'Creates a string variable, Category, that stores the value of
'the Category selected by the user.
Dim Catalog As String

'Sets the Category variable to the category value selected by the user
Catalog = cbocatalog.Value

'Clears the filter criteria (row 2 in the Data worksheet).
Worksheets("Data").Range("A2:d2").Clear

'Sets the filter criteria based on the new selection.
'Don 't worry if the code looks complicated to you, just focus on the key parts:
'The range is where the formula will be written
'(i.e. in cell A2 on the Data worksheet)
'and the Category variable
Worksheets("Data").Range("A2").Formula = _
"=" & Chr(34) & "=" & Chr(34) & "&" & Chr(34) & Catalog & Chr(34)

'Clears the range where the results will be written
Worksheets("Data").Range("i3:l26").Clear

'Uses the Advanced Filter to create a unique set of make values that
'are linked to the selected category. Read the first part of the series,
'"Populating Cascading Combo Boxes Part1" for details
Worksheets("Data").Range("$A$3:$d$26").AdvancedFilter _
Action:=xlFilterCopy, _
criteriarange:=Worksheets("Data").Range("A1:d2"), _
CopyToRange:=Worksheets("Data").Range("i3"), _
Unique:=True

'Clears the contents of the Make combo box, and sets the selected value
'to nothing. This prepares it to be populated by the newly filtered
'set of values for make.
Make = cbomake.Value
Make = cbomake.Value = ""

'Uses a loop to step through each cell in the new make list
'and adds each make to the combo box.
'If a value is blank, it is not added.

End Sub