Hi
Have this
Private Sub UserForm_Initialize()
Dim myrange As Range

Set myrange = Sheets("desti").Range("desti")

For Each c In myrange
ComboBox1.AddItem c.Value
Next

Dim murange2 As Range

Set myrange2 = Sheets("beregn").Range("fly")

For Each a In myrange2
ComboBox2.AddItem a.Value
Next
End Sub

But i have some problems with the combobox2 there get data from
Sheets("beregn").Range("fly")
The data change after what there are coosen in combox1, its working on the
sheet
but how do i get the combox2 to select the new data from the sheet

hope somone understand me and can help.

Alvin