In Userform, when i select a item from ComboBox1 (no buttons) it should populate data in ListBox1.

Data is on Sheet3 range A1:A26 (For Combox1) and B1:B26 (For ListBox1)



Below code... works for ComboBox to display items, but until i type something in Combox :-(


Private Sub ComboBox1_Change()
ComboBox1.List = ThisWorkbook.Worksheets("Sheet3").Range("A1:A26").Value
End Sub