title: How to get filtered data as rowsource of multicolumn listbox?
body: <p>I have data in <code>Sheet2</code> as like below.<br>
  <strong><em>Actual Data</em></strong><br>
  <a href="https://i.stack.imgur.com/QqOOu.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/QqOOu.png" alt="Actual Data"></a> </p>
  
  <p>Then I manually apply filer to those data which looks like...<br>
  <strong><em>Filtered Data</em></strong><br>
  <a href="https://i.stack.imgur.com/tXBWF.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/tXBWF.png" alt="enter image description here"></a></p>
  
  <p>I have a user form (UserForm1) and a list box (<code>ListBox1</code>) in the form. Also have a command button <code>cmdFilteredData</code>. So, I want to fill the listbox with filtered data only. I make below codes but it gives <code>Type mismatch</code> error.</p>
  
  <pre><code>Private Sub cmdFilteredData_Click()
  Dim FilteredRange As Range
      Set FilteredRange = Sheet2.Range("A1:C5").Rows.SpecialCells(xlCellTypeVisible)
  
      With Me.ListBox1
  
          .ColumnCount = 3
          .MultiSelect = fmMultiSelectExtended
          .RowSource = FilteredRange
      End With
  
  End Sub
  </code></pre>
  
  <p>Any help is hearty appreciated. </p>