Thread: Populating a word VBA combo box from excel

You have a userform in the Worddocument: Userform1
The userform conains 1 combobox: Combobox1
The name of the Excel file is: E:\Excel\adres.xls

Put this code in the Userform module

Code:

Private Sub UserForm_Initialize()
  With GetObject("E:\Excel\adres.xls")
    Combobox1.List = .sheets(1).usedrange.Value
    .Close False
  End With
End Sub

Start the userform : Userform1.show

That's about all.