Populate multiple comboboxes with same lists
 

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.

Populate multiple comboboxes with same lists
 

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)

"Sean M." wrote in message
om...
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.