title: Combobox is not filled when user form is initialised, but filled after closing and reopening form
body: <p>For some odd reason, my combo boxes are not "preloaded" with content once the form is initialised, the user has to first close down the form and then open it again for the combo boxes to be prefilled. It's a bug that is starting to irritate the end user, any idea why would this happen? I've attached <strong>Boot</strong> to a button in my spreadsheet, which initialses the form. Code below:</p>
  
  <p>In <strong>UserForm1</strong></p>
  
  <pre><code>Private Sub UserForm1_Initialize()
      Call GetPrimaryContact
      Call GetSecondaryContact
  End Sub
  </code></pre>
  
  <p>In <strong>Module1</strong></p>
  
  <pre><code>Public itm1
  Public itm2
  
  Sub Boot()
  
      UserForm1.Show
      Call GetPrimaryContact
      Call GetSecondaryContact
  
  End Sub
  
  Sub GetPrimaryContact()
  
      Dim Col As New Collection
      Dim i As Long
      Dim CellVal As Variant
  
      ' Clear filters
  
      ThisWorkbook.Sheets("Master").AutoFilter.ShowAllData
  
      ' Get last row
  
      LastRow = ThisWorkbook.Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row
  
      ' Loop between all of column F to get unique values
  
      For i = 3 To LastRow
          CellVal = ThisWorkbook.Sheets("Master").Range("F" &amp; i).Value
          On Error Resume Next
          Col.Add CellVal, Chr(34) &amp; CellVal &amp; Chr(34)
          On Error GoTo 0
      Next i
  
      ' Populate the first with primary contacts
  
      For Each itm1 In Col
          With UserForm1.ComboBox1
              If IsEmpty(itm1) Then .AddItem "No Contact" Else .AddItem itm1
          End With
      Next
  
  End Sub
  
  Sub GetSecondaryContact()
  
      Dim Col As New Collection
      Dim i As Long
      Dim CellVal As Variant
  
      ' Clear filters
  
      ThisWorkbook.Sheets("Master").AutoFilter.ShowAllData
  
      ' Get last row
  
      LastRow = ThisWorkbook.Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row
  
      ' Loop between all of column F to get unique values
  
      For i = 3 To LastRow
          CellVal = ThisWorkbook.Sheets("Master").Range("G" &amp; i).Value
          On Error Resume Next
          Col.Add CellVal, Chr(34) &amp; CellVal &amp; Chr(34)
          On Error GoTo 0
      Next i
  
      ' Populate the first with primary contacts
  
      For Each itm2 In Col
          With UserForm1.ComboBox2
              If Not IsEmpty(itm2) Then .AddItem itm2
          End With
      Next
  
  End Sub
  </code></pre>