Private Sub UserForm_Initialize()

    Me.Caption = "직원 입력 폼"

    With txt사번
        .Value = Cells(Rows.Count, "B").End(xlUp).Value + 1
        .Enabled = False
    End With

    With cmb직위
        .AddItem "부장"
        .AddItem "과장"
        .AddItem "대리"
        .AddItem "사원"

        .ColumnWidths = .Width
        .ListWidth = .Width
    End With

End Sub