Something like this maybe (assuming your data is in Column B for this
example)...

Dim X As Long, LastRow As Long
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
For X = 4 To LastRow Step 4
Me.ComboBox1.AddItem Cells(X, "B").Value
Next

--
Rick (MVP - Excel)


"jlclyde" wrote in message
...
I am trying to fill a combo box in a user form from a range. I do not
want every cell in range. I want the cell value to be added only if
cell.row mod 4 = 0. Can this be done? How?

Thanks,
Jay