Select Cases and Comboboxes

[AnthonyWB]

Hello everyone. I have an outstanding problem that I could use some help on.

I have a userform that contains two comboxes. If the user selects value "A" in the first combobox, I want a specified range in a spreadsheet to be used as the rowsource for the second combobox.

If the user selects value "B" in the first combobox, I want a different specified range in a spreadsheet to be used as the rowsource for the second combobox.

Below is the source code.

Option Explicit

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Select Case ComboBox1.Value
    Case Range("A1")
        ComboBox2.RowSource = "TrackerManagement!C2:C10"
    Case Range("A2")
        ComboBox2.RowSource = "TrackerManagement!D1:D10"
End Select

End Sub

Now this code is in the actual userform itself. A seperate module "Module 3" shows the form :

Option Explicit
Sub CommandButton31_Click()
    Application.ScreenUpdating = False
    TrackerManagement.Show
End Sub

it's not working, and I cannot figure it out. Any help is greatly appreciated.