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

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" <(E-Mail Removed)> wrote in message
news:8A726C8B-F0D8-4930-A0E4-(E-Mail Removed)...
> 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
>

cbo_medie.Listindex = 0 will set that to the first entry

cbo_medie.Listindex = -1 will set that to blank


If this post helps click Yes
---------------
Jacob Skaria


"alvin Kuiper" wrote:

> 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
>