List Box Items

[Jason]

I am trying to create a list box that is populated with
items from a row. For example: A2=red B2=blue C2=green.
then the first value in the combobox is red, the second is
blue, the third is green and so on.

 

[Bob Phillips]

Set the Input Range (if a Forms Listbox) the RowSource property (Controls
listbox), or the ListFillRange (Userform listbox) to that range address.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Debra Dalgleish]

Leo Heuser gives instructions in the following post:

http://groups.google.com/groups?&threadm=eH7E3WpRBHA.2084@tkmsftngp03

To adapt to your listbox:

Private Sub ListBox1_GotFocus()
ListBox1.Column = Range("A2:C2").Value
End Sub

 

[Mark E. Philpot]

try this:
sub addMe()
sheets("Sheet1").select
Range("A2").select
do
set a=selection
with listBox1
..additem (a)
end with
activecell.offset(0,1).select
loop until a=""
end sub

This is quick and dirty and may add a blank line to the
bottom of the listbox.

regards
Mark