Private Sub Combobox1_Click()
Combobox2.clear
With Worksheets("Sheet1")
Select Case Combobox1.ListIndex
Case 0
Combobox2.List = .Range("Item1")
Case 1
Combobox2.List = .Range("Item2")
Case 2
Combobox2.List = .Range("Item3"
Case Else
Combobox2.Clear
End Select
End Sub


--
Regards,
Tom Ogilvy

"mtm4300 via OfficeKB.com" <u18572@uwe wrote in message
news:5bacc0b4ad327@uwe...
I have combobox1 that has 3 choices available for the user to choose
from. I
have combobox2 that has seven choices to choose from. However, the seven
choices will vary depending on what the user picked in combobox1. So for
each
choice the user makes in combobox1, the seven choices will change in
combobox2. I am having trouble getting combobox2 to change based on the
selection in combobox1. Can anyone help me?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200602/1