embeded combobox

[proctk]

Hi

I'm have a worksheet with about 200 comboboxes on it I want every combobox to be populated with the things in th edrop down list. The only thing I need in the drop down list is the number one and ideas on an easy way to do this

 

[Tazguy37]

Why not use data, validation, rather than a combobox? Especially if they'll all be the same, it's a whole lot easier to copy a validation cell to exactly the right place, rather than a combobox.

Also, with that many comboboxes, watch your file size go sky high.

 

[proctk]

the value from the combox will be used in another macro

 

[Tazguy37]

If you make one combo box the way you want it, you can just make a copy, and that combo box will have the same list fill range.

 

[proctk]

I'm probley complicating things but all the comboboxes have been created and named all ready

 

[Tazguy37]

You could use something like this; just change the range to where your data that's going to fill the boxes is.

Dim cb As Object

    For Each cb In ActiveSheet.OLEObjects
        If cb.progID = "Forms.ComboBox.1" Then cb.ListFillRange = "A1"
    Next cb

 

[proctk]

Thankyou for your help, that will work excellent