rellenar un combobox

Hola a todos/as

Estoy intentando rellenar un combobox insertado en una
hoja de cálculo(libro1.xls), con los datos de otra
(libro2.xls), pero no consigo hacer que si la otra
(libro2.xls), está cerrada funcione.

Por otra parte además estoy intentado rellenar un combobox
incrustado en una hoja para que aparezcan los datos al
abrir el libro, pero lo más parecido que he encontrado es
Private Sub Worksheet_Activate()
ComboBox1.AddItem "Mi texto1", 1
ComboBox1.AddItem "Mi texto2", 2
ComboBox1.AddItem "Mi texto3", 3
End Sub
Pero si le pongo índice no me funciona, y si lo quito me
va añadiendo los mismos datos cada vez que la activo.

Agradecería cualquier ayuda,
Un saludo.
.