If rng.Cells.Count 1 Then
lis.List = rng.Value
Else
lis.List = Array(rng.Value)
End If



x taol wrote:

please see the code below

sub btn_click()
'lis == listbox control in userform
set rng = range("a2:a5")
lis.list=rng.value 'it's ok
set rng = range("a2")
lis.list = rng.value 'it' not ok

'how can i ??
'i don't want to use "additem".

end sub

*** Sent via Developersdex http://www.developersdex.com ***

--

Dave Peterson