Populate multiple comboboxes with same lists

S

Sean M.

Hi everyone,

I'm definately not an expert at this stuff so your help would be
greatly appreciated.

I'm creating a scheduling sheet that has several hundred comboboxes
populated with three choices: "Assigned", "Unnassigned" and
"Completed". I also have the background color change depending on the
choice. The only way I can figure to do this is to manually create
the code for each combobox and it's proving far too much work with
this many fields.

Could someone post some code I could try that uses a loop or array or
something? It's been several years since I've done any programming
and I just don't have the time to figure it all out again!

Thanks in advance!

Regards,

Sean M.
 
B

Bob Phillips

Hi Sean,

Try this

Sub SeupDropDown()
Dim dd As DropDown

For Each dd In ActiveSheet.DropDowns
dd.ListFillRange = "A1:A3"
dd.LinkedCell = "B1"
Next dd

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top