Filling Combobox Based on another combobox.text value.

Yeah that what i tryed to explain in post #5

  Col = .ListBox1.ListIndex + 1
        With wsLists
            Set rSource = .Range(.Cells(2, Col), .Cells(.Rows.Count, Col).End(xlUp))
        End With
        .ListBox2.List = rSource.Value

I dont think that approach will work. Since my listindex wont corrospond with the Sheet RowCount.

Cheers