Form takes a long time to open

I also have attached it so you can view. This form is not large, but it seems to take awhile to open, can someone look at the code and tell me if something in the code is causing this?

Private Sub UserForm_Initialize()

Dim cNam As Range
Dim cRea As Range
Dim cLin As Range
Dim ws As Worksheet
Set ws = Worksheets("LookupLists")

For Each cNam In ws.Range("LeadList")
  With Me.cboName
    .AddItem cNam.Value
  End With
Next cNam

For Each cRea In ws.Range("ReasonList")
  With Me.cboReason
    .AddItem cRea.Value
  End With
Next cRea

For Each cLin In ws.Range("LineList")
  With Me.cboLine
    .AddItem cLin.Value
  End With
Next cLin

Me.txtDate.Value = Format(Date, "Medium Date")
Me.txtDate.SetFocus

End Sub

Also, where would you put code to add a calendar drop down, if that is possible?