Form takes a long time to open

Your one named range is 65536 rows long.

Use this to populate the Line Lead ComboBox

'-------------------------------------------
    Dim LstRw1 As Long, r As Range
    LstRw1 = ws.Cells(Rows.Count, "A").End(xlUp).Row
    Set r = Range(ws.Cells(1, 2), ws.Cells(LstRw1, 1))
    cboName.List = r.Value
'-----------------------------------------------

Right click on the Tool Box,select add additional controls, see if You can find Microsoft Date and Time Picker. Click it to add to your tool box.