Hi I use:
Dim getmedia As Range
Set getmedia = Sheets("Beregn").Range("media")
For Each d In getmedia
cbo_medie.AddItem d.Value
Next

How can i show the first item in the box, and not a empty line?

Alvin