list property of listbox

[x taol]

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]

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

 

[x taol]

please is it possible making with one syntex without if statement?

for example

lst.List = ~~~~

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

 

[Dave Peterson]

isn't .list expecting an array?

please is it possible making with one syntex without if statement?

for example

lst.List = ~~~~

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