I have a list of data in a worksheet. I want to create a drop down box, in
several separate worksheets within the same work book, containing the list.
Whenever an item is chosen from the list I want the title of that worksheet
to be inserted into the cell to the right of the chosen item. The same item
can be chosen more than once.

Private Sub Combobox1_Click()
Dim rng as Range
Dim cell as Range
set rng = Combobox1.ListFillRange
set cell = rng(combobox1.ListIndex + 1,2)
do while not isempty(cell)
set cell = cell.offset(0,1)
Loop
cell.Value = Me.Name
End Sub


--
Regards,
Tom Ogilvy


"Nicole Buckner" <Nicole wrote in message
...
I have a list of data in a worksheet. I want to create a drop down box,
in
several separate worksheets within the same work book, containing the
list.
Whenever an item is chosen from the list I want the title of that
worksheet
to be inserted into the cell to the right of the chosen item. The same
item
can be chosen more than once.