Results 1 to 8 of 8

Form takes a long time to open

Threaded View

  1. #1
    Forum Contributor 00Able's Avatar
    Join Date
    11-17-2010
    Location
    Pittsburgh, PA
    MS-Off Ver
    Excel 2003, 2007, 2010
    Posts
    244

    Smile 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?
    Last edited by 00Able; 11-27-2010 at 09:08 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1