Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 2
.List = Worksheets("A").Range("E3:F" & Worksheets("A").Cells(Application.Rows.Count, "F").End(xlUp).Row).Value
End With
With Me.ListBox2
.ColumnCount = 2
.List = Worksheets("B").Range("B4:C" & Worksheets("B").Cells(Application.Rows.Count, "C").End(xlUp).Row).Value
End With
With Me.ListBox3
.ColumnCount = 2
.List = Worksheets("C").Range("L4:M" & Worksheets("C").Cells(Application.Rows.Count, "M").End(xlUp).Row).Value
End With
End Sub