Заполнение ListBox и Combobox - VBA

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

Добрый день уважаемые специалисты. Тема заполнения ListBox и Combobox наверное уже изъезжена вдоль и поперек. Однако, когда занимаешься программированием не регулярно, а по мере необходимости, то сталкиваешься с моментами, ответы на которые не всегда есть в книгах и на форумах. Один из таких моментов это не возможность вставить из диапазона список их одного значения, т.е например, иногда бывает, что в листбокс нужно передать значение, соответствующее одной строке:

                    Листинг программы
                
 Private Sub UserForm_Initialize()
ListBox1.List= Worksheets("Лист1").Range("A1:A2") .value 'работает
ListBox1.List = Worksheets("Лист1").Range("A1:A1").value 'не работает, выдает ошибку несоответствия индексов
ListBox1.List = Worksheets("Лист1").Range("A1").value 'не работает, выдает ошибку несоответствия индексов
End Sub

Естественно написано упрощенно и вместо "A1:A2" будет поставляться диапазон по определенному условию из разных частей книги, который может содержать как 50, так и одну строку. Вопрос как это можно обойти. Спасибо.

Решение задачи: «Заполнение ListBox и Combobox»

textual
                            Листинг программы 
                        
For Each s In Worksheets("Лист1").Range("A1:A1")
ListBox1.AddItem s.Value
Next