Hi all,

Great forum and I've had a good few answers to other posts I've made. Hope someone can help me with this one.

I have a userform with two tabs on it and on each tab there are several comboboxes. In the UserForm_Initialize sub I populate each of these comboboxes with the following code:

Sub UserForm_Initialize()
With comPTcomposer
    .AddItem "Mary Jones"
    .AddItem "John Smith"
    .AddItem "Peter Wilson"
End With
These items need to populate a second combobox named comGPcomposer. So I then have another With statement adding the same items to it.

My question is is there a way to add a list of items to an array of comboboxes something like:

With Array(comPTcomposer, comGPcomposer)
    .AddItem "Mary Jones"
    .AddItem "John Smith"
    .AddItem "Peter Wilson"
End With
I tried the code above and got a RunTime Error 424 - Object required.

I realise that this is not going to speed up the code at all but the Initialize Sub looks really messy with a lot of code repeated again and again

Any help would be much appreciated.

TIA

Seamus