Thanks but, i am getting an error message. "Object does'nt support this
property or method"

Please help



"Harald Staff" wrote in message
...
This macro will do it:

Sub FillCombo()
Dim Cel As Range
Sheets("Sheet1").ComboBox1.Clear
For Each Cel In Sheets("Sheet2").Range("A1:A10")
If Cel.Value < "" Then
Sheets("Sheet1").ComboBox1.AddItem Cel.Value
End If
Next
End Sub


question is When -and Why. You'll have to run this manually as is.

HTH. Best wishes Harald

"sunilpatel" wrote in message
...
I have create a combbox using toolbarsControl Toolbox. (not used User
Form) I can populate it by altering ListFillRange in properties. What i
actually need to do is, using code i want to populate combobox with a
range on a second sheet E.G Sheet2 range A1:A10 but ommiting any blank
cells in this range.

Is this possible? Not used comboboxs before!

Please help in newbie talk!

Sunil