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.