Выпадающий список с listbox

[Oleg778]

Добрый день !

Сделал выпадающий список с другого листа с помощью формы с listbox но только часть. Остались вопросы
Вызвав форму с ListBox вставляем выбранное значение из ListBox в активную ячейку по двойному клику.
Как сделать чтобы ограничить диапазон куда вставляем значения в листе ?

Пример приложил.

[Aleksandr H.]

1)

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
a = ListBox1.Text
If Not Intersect(Range("B6:B40"), ActiveCell) Is Nothing Then
    ActiveCell.Value = ActiveCell.Value & " " & a
End If
End Sub

2) Уверенны что, если будет курсор активный в ячейке, сможете что-то выбрать на форме?

[Oleg778]

Благодарю Aleksandr за ответ! Про курсор активный в ячейке понял что это невозможно с данной формой ( но надеялся ранее)