"Error next for"

[Moroke]

I need assitance in combining this code to be one code , when ever I click the "Add" button to add data from my dropdow if the is "0" to hide that cell....

Private Sub cmdAdd_Click()
Dim cell As Object
  For Each cell In Selection.Cells
  cell.Value = Cmb
  Next cell
  Unload Me
End Sub

Sub HideRows()
Application.ScreenUpdating = False
Dim cell As Range
  For Each cell In Range("I19:I658")
  If cell.Value = "0" Then
  cell.EntireRow.Hidden = True
  Application.ScreenUpdating = True
  End If
  Next
End Sub

Please I need assistance with this code.

 

[Luke M]

Like this?

Private Sub cmdAdd_Click()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Selection.Cells
    cell.Value = cmb
    cell.EntireColumn.Hidden = (cmb = 0)
Next cell
Application.ScreenUpdating = True
Unload Me
End Sub