How can I make this work for 2 comboboxes an the same userform and make it
that is the value from combox('CbxMan').value doesn't match anything in
column 'A' or a new name is typed in it will open a new userform? Here is my
current code.

Private Sub CbxMfg_Change()
Dim sSelected As String
Dim dX As Double, dCount As Double
sSelected = Me.CbxMfg.Value
dCount = 0
For dX = 2 To Worksheets("ProCode").UsedRange.Rows.Count
If Cells(dX, 1).Value = sSelected Then
Me.CbxProd.AddItem Cells(d, 2).Value
dCount = dCount + 1
End If
Next
If Not dCount = 0 Then
FrmManu.Show
Unload Me
End If
End Sub


AND

Private Sub UserForm_Initialize()
Dim coll As Collection
Dim i As Long
Dim itm
'fill coll with values from column A
Set coll = New Collection
On Error Resume Next
For i = 2 To Worksheets("ProCode").UsedRange.Rows.Count
coll.Add Range("A" & i).Value, Range("A" & i).Value
Next i
On Error GoTo 0
For Each itm In coll
Me.CbxMfg.AddItem itm
Next

End Sub