VBA и Excel

Формулировка задачи:

Привет всем. Есть такой вопрос. На листе есть несколько combobox. Как сделать, чтобы при активации листа они заполнялись данными? Можно ли заполнить определенный combobox на этапе проектирования?

Решение задачи: «VBA и Excel»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_Activate()

    myFormula = <font color="teal">"=список1"</font>

    <font color="blue">With</font> Range(<font color="teal">"A1"</font>).Validation
         <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
        .Delete
        .Add <font color="blue">Type</font>:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=myFormula
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = <font color="teal">""</font>
        .ErrorTitle = <font color="teal">""</font>
        .InputMessage = <font color="teal">""</font>
        .ErrorMessage = <font color="teal">""</font>
        .ShowInput = True
        .ShowError = True
    <font color="blue">End</font> <font color="blue">With</font>

<font color="blue">End</font> <font color="blue">Sub</font>

                        