Dim getmedia As Range
Set getmedia = Sheets("Beregn").Range("media")
For Each d In getmedia
cbo_medie.AddItem d.Value
Next
cbo_medie.Listindex = 0


--
__________________________________
HTH

Bob

"alvin Kuiper" wrote in message
...
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