using two comboxes... to populate a third

[smartphreak]

Hi Guys,

If you look at the attached file, you will see that I am using one combobox to populate the second.

as follows:

Private Sub ComboBox_Region_Change()

Select Case Me.ComboBox_Region.Value
Case "NORTH AMERICA"
    Me.ComboBox_Country.RowSource = "NORTHAMERICA"
Case "NORTH AMERICA"
    Me.ComboBox_Country.RowSource = "SOUTHAMERICA"
Case "EUROPE"
    Me.ComboBox_Country.RowSource = "EUROPE"
Case "ASIA"
    Me.ComboBox_Country.RowSource = "ASIA"

End Select
ComboBox_Country.SetFocus

End Sub


Private Sub UserForm_Initialize()
Worksheets("Lists").Range("NORTHAMERICA").Name = "NORTHAMERICA"
Worksheets("Lists").Range("SOUTHAMERICA").Name = "SOUTHAMERICA"
Worksheets("Lists").Range("EUROPE").Name = "EUROPE"
Worksheets("Lists").Range("ASIA").Name = "ASIA"

Worksheets("Lists").Range("REGIONS").Name = "REGIONS"
Me.ComboBox_Region.RowSource = "REGIONS"

End Sub

This works great - only i want to be able to have a third combobox look at the result of combobox_County and populate combobox_location (the 3rd combobox)

Any ideas?

Thanks a million

[pike]

smartphreak

one possible way with cas structure..

Private Sub ComboBox_Country_Change()
    Select Case Me.ComboBox_Region.ListIndex

    Case 0

        Select Case Me.ComboBox_Country.ListIndex
        
        Case 0
                     Me.ComboBox_Location.RowSource = "Lists!h2:h54"
        Case 1
                    Me.ComboBox_Location.RowSource = "Lists!g2:g54"
        Case 2
                    Me.ComboBox_Location.RowSource = "Lists!i2:i54"
        Case 3
                    Me.ComboBox_Location.RowSource = "Lists!j2:j54"

        Case 4


        End Select
    Case 1
        Me.ComboBox_Country.RowSource = "Lists!C2:c5"
    Case 2
        Me.ComboBox_Country.RowSource = "Lists!d2:d5"
    Case 3
        Me.ComboBox_Country.RowSource = "Lists!e2:d5"

    End Select
End Sub

Private Sub ComboBox_Location_Change()

End Sub

Private Sub ComboBox_Region_Change()
Select Case Me.ComboBox_Region.ListIndex

Case 0
    
    Me.ComboBox_Country.RowSource = "Lists!B2:B5"
Case 1
    Me.ComboBox_Country.RowSource = "Lists!C2:c5"
Case 2
    Me.ComboBox_Country.RowSource = "Lists!d2:d5"
Case 3
    Me.ComboBox_Country.RowSource = "Lists!e2:d5"

End Select
ComboBox_Country.ListIndex = 0

End Sub