List the sheets in a range on a worksheet and set the comboboxes
ListFillRange property to that range address(A1:A10 for instance)

--

HTH

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

"Greg Hadrych" wrote in message
...
This sounds strange but this is what i have. I have the
code written for when a user selects a item from a combo
box, it will take them to the desired worksheet.


Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case 0
Case 1
Sheets("User Name Change").Select
Case 2
Sheets("Price plan change - vision").Select
Case 3
Sheets("Price plan change - I2K").Select
Case 4
Sheets("Add 1yr contract - vision").Select
Case 5
Sheets("Validate NPA NXX").Select
Case 6
Sheets("Group ID - Acct").Select
Case 7
Sheets("Group ID - MTN").Select

End Select
End Sub

But the problem is that i can not add the text to the
combobox. I can not find a way to show the text when you
click on the down arrow.