Private Sub Userform_Initialize()
Combobox1.List = Worksheets("Sheet2").Range("A1:A100").Value
End Sub

if the combobox is on a worksheet, do it in the workbook open event

Private Sub Workbook_Open()
Worksheets("Sheet1").Combobox1.List = _
Worksheets("Sheet2").Range("A1:A100").Value
End Sub


--
Regards,
Tom Ogilvy

"gelu " wrote in message
...
Hello every body

Can someone help me,

I would like to fill a combobox located in an excel whorksheet with the
data from other worksheet.

Ej Worksheet 1 whit the combobox1

Worksheet 2 with the data (A1:A100)

I have tried to initialize but it does not run and


thanks in advance


---
Message posted from http://www.ExcelForum.com/