combobox list

[jdcar]

hi
i have several comboboxes that have the same listdata, on userform.
Instead of repeating the list array in each combobox, I would like to do a macro to replace repeat that.
how I have it is:
cboAB.List = Array("....","....".........) ; cboCD.list=array("....","....".........) and so on
how to do that
thak you

 

[rabsofty]

cboAB.List = Array("....","....".........) ; cboCD.List =  cboAB.list  'and so on

 

[dmt32]

Hi,
Providing your combobox naming convention is as you have published, the same for all of them then maybe the following will do what you want

        Dim ctrl As Control
        Dim arr  As Variant
       
        arr = Array("....", "....", ".........")
       
        For Each ctrl In Me.Controls
            If ctrl.Name Like "cbo[A-Z][A-Z]" Then ctrl.List = arr
        Next ctrl

Dave