Private Sub UserForm_Initialize()

    Dim 신청자 As Range

    Set 신청자 = Range("B3", Cells(Rows.Count, "B").End(xlUp))

    With ListBox1
        .List = 신청자.Value
        .MultiSelect = fmMultiSelectMulti
    
        Label2.Caption = "개수 : " & .ListCount
    End With
    
    Label4.Caption = ""
    ListBox2.MultiSelect = fmMultiSelectMulti
    
End Sub
