следующая процедура для ComoBox заполняет список Данные с листа"Прейскурант":
Private Sub ComoBox1_Enter()
ComoBox1.Clear
Sheets("Прейскурант").Select
Dim i As Integer, j As Integer
i = 2
Do
i = i + 1
If Cells(i, 1) = "" Then
j = i
Exit Do
End If
Loop
For n = 2 To i
ComoBox1.AddItem Cells(n, 1)
Next n
End Sub
в раскрывающемся списке должны появиться коды товаров-а у меня список пустой