Hi,
You might want to try the following:
{
Dim Names(10) As String
Workbooks("C:tempbook1.xls").Open
For i = 1 To 10
Names(i) = Range("A1").Offset(i - 1, 0).Value
Next i
ActiveWorkbook.Close (False)
For i = 1 To 10
Sheets("sheet1").ComboBox1.AddItem Names(i)
Next i
}
What the above doing is:
1. opens the other workbook, read the list of names/data you are after into memory/array.
2. closes the workbook without saving changes.
3. insert these names to the combobox.
Hope it helps