Например так
Private Sub ComboBox1_Change()
Cells(1, 1).Select
Cells(1, 1).Value = ComboBox1.Value
End Sub

Private Sub ComboBox1_Click()
'если книга2 открыта
Dim nisSpiska As Long, i As Long
ComboBox1.Clear
With Workbooks("Книга2.xls").Sheets("Лист1")
' определяем последнюю заполненую ячейку в столбце А
nisSpiska = .Cells(1, 1).End(xlDown).Row
'заполняем ComboBox
For i = 1 To nisSpiska
ComboBox1.AddItem .Cells(i, 1).Value
Next i
End With
End Sub

а вообще у ComboBox есть LinkedCell и ListFillRange
LinkedCell - куда выводится инфо
ListFillRange - список

EkonomovaLinkedCell - куда выводится инфо
ListFillRange - список

А скажите пожалуйста, когда данные находятся в этой же книге с ListFillRange все понятно, но ссылку на другую книгу сделать не получается. Если можно, то подскажите как.
Код работает, большое спасибо, но через ListFillRange проще как-то

присвой имя например "spisok" списку (выделяешь диапозон "вставка-имя-присвоить")
ListFillRange: Книга2.xls!spisok

EkonomovaСпасибо, сейчас попробую.
А код все-таки не работает, список выдается, но из-за ComboBox1.Clear сразу удаляется. Если ComboBox1.Clear убрать, то он мне этот список начинает размножать.
Что делать????????
Простите, я чайник в этом деле!

лучше так