Combobox'a Veri alma

[unfors]

Çalışma Sayfası içerisindeki bir Combobox'a, Kapalı bir excel dosyasının tanımlı Ad aralığı isimlerini (Ad yöneticisinden oluşturduğumuz) almak mümkünmüdür?

 

[alicimri]

Sayın unfors
Yanlış anlamadım ise kodlar aşağıda, dosya adını ve yolunu kendinize göre değiştirin

Private Sub UserForm_Initialize()
   Workbooks.Open Filename:="C:\Users\OMAR\Desktop\xx.xls"
For i = 1 To Workbooks("xx.xls").Names.Count
ComboBox1.AddItem Workbooks("xx.xls").Names(i).Name
Next
 Workbooks("xx.xls").Close
End Sub

 

[alicimri]

Sayın unfors
yanlışlık vardı, 2. mesajdaki kodları düzelttim.

 

[unfors]

Elinize emeğinize sağlık çok güzel olmuş. Teşekkür ederim.