VBA Excel и поле со списком

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

Подскажите как передать данные в поле со списком.
Ситуация:
Есть лист1 с данными.
лист 2 с ComboBox1
Задача - передать данные от значения Лист1.ххх до Лист1.ХХХ-енд в ComboBox1 на Лист2
Пытался сделать сл кодом - ругаеться на строку 7 = (Mehtod 'Range' of object '_Worksheet' failed)
========= КОД ===========================
1)Dim ws As Worksheet
2)Set ws = Worksheets("Всё для ПК")
3)' границы диаппазонов
4)ххх = ws.Cells.Find(What:="МАТЕРИНСКИЕ ПЛАТЫ").Row
5)ХХХ_end = ws.Cells.Find(What:="ПРОЦЕССОРЫ", After:=Cells(ххх, 1)).Row
6)' формирование диапазонов
7)MB = ws.Range(Cells(ххх, 2), Cells(ХХХ_end, 8)).value
8)ComboBox1.List = Application.MB.Value
=========================================
не могу понять в чём ошибка.

Решение задачи: «VBA Excel и поле со списком»

textual
                            Листинг программы 
                        
                            <font color="blue">Set</font> MB = ws.Range(ws.Cells(ххх, <font color="darkblue"><b>2</b></font>), ws.Cells(ХХХ_end, <font color="darkblue"><b>8</b></font>))