Связать 2 ComboBox-a - VBA

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

Ребят, помогите пожалуйста, что-то не получается связать 2 ComboBox-a. Например, есть 3 листа, если в ComboBox1 выбирается одно значение, то в ComboBox2 должен быть список из первого листа, если в ComboBox1 выбирается второе, то в ComboBox2 список со второго листа и с третьим также. Попробовала так:

Private Sub UserForm_Initialize()
ComboBox1.List = Array("Клиенты", "Материалы", "Работы")
If ComboBox1 = "Клиенты" Then
Лист1.Activate
ComboBox2.RowSource = "Лист1!B2:B5"
ElseIf ComboBox1 = "Материалы" Then
Лист2.Activate
ComboBox2.RowSource = "Лист2!B3:B5"
ElseIf ComboBox1 = "Работы" Then
Лист3.Activate
ComboBox2.RowSource = "Лист3!B3:B5"
End If
End Sub

И так:

Private Sub ComboBox1_Change()
Select Case ComboBox1
Case "Клиенты: ComboBox2.List = "Лист1!B2:B5"
Case "Материалы": ComboBox2.RowSource = "Лист2!B3:B5"
Case "Работы": ComboBox2.RowSource = "Лист3!B3:B5"
End Select
End Sub

Все равно не работает. В Vba только начинаю разбираться, поэтому не ругайтесь)

Решение задачи: «Связать 2 ComboBox-a»

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

                            Private Sub UserForm_Initialize()
ComboBox1.List = Array("Клиенты", "Материалы", "Работы")
End Sub
 
Private Sub ComboBox1_Change()
ComboBox2.Value = ""
Select Case ComboBox1
Case "Клиенты": ComboBox2.List = Sheets("Клиенты").Range("B2:B5").Value
                        