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?
Bookmarks