title: Apply AutoFilter and display results in UserForm ListBox?
body: <p>Right now I have a UserForm that looks like this:</p>
  
  <p><img src="https://i.stack.imgur.com/Ou5Aq.jpg" alt="enter image description here"></p>
  
  <p>I have a spreadsheet that looks like this:</p>
  
  <p><img src="https://i.stack.imgur.com/1JVSn.jpg" alt="enter image description here"></p>
  
  <p>I am using the following code in the UserForm_Initialize event to apply an AutoFilter to my data. I need to display the results of the AutoFilter in my listbox which is named "boxPolicyList".</p>
  
  <pre><code>Worksheets("defaults").Select
  
  Me.boxDateBegin.Value = ActiveSheet.Range("E4").Value
  Me.boxDateEnd.Value = ActiveSheet.Range("F4").Value
  
  Workbooks.Open Filename:="Z:\Stuff\production\production_database.xlsm"
  Worksheets("policies").Select
  
      With ActiveSheet
          .AutoFilterMode = False
              With .Range("A1:F1")
                   .AutoFilter
                   .AutoFilter field:=1, Criteria1:="&gt;=" &amp; Me.boxDateBegin.Value, _
                   Operator:=xlAnd, Criteria2:="&lt;=" &amp; Me.boxDateEnd.Value
                   .AutoFilter field:=3, Criteria1:="Bear River Mutual"
              End With
      End With
  
      Me.txtTotalPolicies.Caption = ActiveSheet.Range("J1").Value
      Me.txtTotalPremium.Caption = ActiveSheet.Range("H1").Value
      Me.txtTotalPremium.Caption = Format(Me.txtTotalPremium.Caption, "$#,###,###.00")
  
  Workbooks("production_database.xlsm").Activate
  ActiveWorkbook.Save
  ActiveWorkbook.Close
  </code></pre>
  
  <p>Does anyone know how this can be done?</p>