Hi
I have been asked to create a combo box containing the following information. From a row I need to select the information from, for example A1:X1, and place this in a combo box.
However if a new column is created/inserted the combo box should allow for this and the new value should appear in the combo box list.

Hope that makes sense
Any help on how to do this is much appreciated
New user

You could try this. It works for me in a column so I don't
see why it shouldn't work with a row.

dim Mylastcell
Mylastcell = worksheets("name").Range("A1") _
..End(xlToRight).Address(ROWABSOLUTE:=False)

with worksheets("name").combobox1
.list = worksheets("name").Range("A1:" & _
Mylastcell).value
end with

hth


-----Original Message-----
Hi
I have been asked to create a combo box containing the
following information. From a row I need to select the
information from, for example A1:X1, and place this in a
combo box.
However if a new column is created/inserted the combo box
should allow for this and the new value should appear in
the combo box list.

Hope that makes sense
Any help on how to do this is much appreciated
New user
.

Thanks George I'll try it

I tried the below myself and it seems to be a start as well
Private Sub ComboBox1_DropButtonClick(
Dim n As Intege
ComboBox1.Clea
For n = 7 To 99
If IsEmpty(Sheet2.Cells(7, n)) = True The
Exit Su
End I
ComboBox1.AddItem (Sheet2.Cells(7, n)
Next
End Su

Thanks again
New User