thanks
but not the same
I try to use
Set rng = Range(Range("a1"), Range("a1").End(xlToRight))

but get only one value off course i can use
Set rng = Range(Range("a1"), Range("a255").End(xlToRight))
But then i get also the empty cells

Alvin


"Dave Peterson" wrote:

There's a reply at your other post.

alvin Kuiper wrote:

Hi
here is what i use in a combobox

Dim rng As Range
Set rng = Range(Range("a1"), Range("a1").End(xlDown))
Me.navne.List = rng.Value

This working
How can i use this to take the range in row 1 not down.

Alvin

--

Dave Peterson