Cascading (Dependent) Combo boxes in Excel Form using vba - Need Help

[bgblanco]

Hi, first I want to thank you in advance for helping me out.
I have developed a user form in excel. I have 2 combo boxes. The first one is Manager and the second one is Employee. Upon form initialize I populate all Managers and Employees from excel tabs with the code below (this populates everyone).
What I need help with, is I want to update the Employee combo box depending on what Manager is selected. So if Manager A is selected I only want to show the employees attached to Manager A, and If Manager B is selected I only want to show their employees, etc.
The table that I'm pulling from is on the 'EmployeeRefTable' tab and the information looks like this:
[TABLE="width: 253"]
<colgroup><col width="123" style="width: 92pt;"><col width="130" style="width: 98pt;"></colgroup><tbody>[TR]
[TD="width: 123"]Manager[/TD]
[TD="width: 130"]Employee[/TD]
[/TR]
[TR]
[TD="width: 123"]A[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="width: 123"]A[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="width: 123"]A[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD="width: 123"]A[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD="width: 123"]B[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD="width: 123"]B[/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD="width: 123"]B[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD="width: 123"]B[/TD]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD="width: 123"]C[/TD]
[TD="align: right"]9[/TD]
[/TR]
[TR]
[TD="width: 123"]C[/TD]
[TD="align: right"]10[/TD]
[/TR]
[TR]
[TD="width: 123"]C[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD="width: 123"]C[/TD]
[TD="align: right"]12[/TD]
[/TR]
</tbody>[/TABLE]
Set DataSheet = ThisWorkbook.Worksheets("ManagerRefTable")
Set MyList = DataSheet.Range("A2:A50")
Rw = 1
cboManager.Clear
While MyList.Cells(Rw, 1).Value <> ""
cboManager.AddItem
cboManager.List(Rw - 1, 0) = MyList.Cells(Rw, 1).Value
cboManager.List(Rw - 1, 1) = MyList.Cells(Rw, 2).Value
Rw = Rw + 1
Wend

Set DataSheet = ThisWorkbook.Worksheets("EmployeeRefTable")
Set MyList = DataSheet.Range("B2:B250")
Rw = 1
cboEmployee.Clear
While MyList.Cells(Rw, 1).Value <> ""
cboEmployee.AddItem
cboEmployee.List(Rw - 1, 0) = MyList.Cells(Rw, 1).Value
cboEmployee.List(Rw - 1, 1) = MyList.Cells(Rw, 2).Value
Rw = Rw + 1
Wend
Thank you again,
Brian