Как связать выпадающие списки двух ComboBox ? - VBA

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

доброго времени суток как связать ComboBox1 и ComboBox5 UserForm1 ComboBox1 rowsource присвоен именованный диапазон при выборе элемента из списка "Автокамерный_цех" в ComboBox5 должен выпадать список именованного диапазона "Автокамерный_цех" т.е при выборе какого либо элемента ComboBox1 должен быть присвоен диапазон ComboBox5 с аналогичным именемhttps://yadi.sk/d/oW0IKBrcz2A5n

Решение задачи: «Как связать выпадающие списки двух ComboBox ?»

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

                            Private Sub ComboBox1_Change()
    ComboBox5.List = Range(ComboBox1.Text).Value
End Sub
                        