title: How to Auto Filter a column using ComboBox value as Criteria in Excel VBA
body: <p>I have a spreadsheet that contains a list of Phone brands and Phone models (Phone brands are in column A, and Phone models are in column B)</p>
  
  <p>I'm trying to do an ActiveX program that allows Users to select a Phone brand from ComboBox1 and Filter column A using the Value of the ComboBox1.</p>
  
  <p>Here's what I have so far:</p>
  
  <pre><code>Option Explicit 
  Sub AdvFilter() 
      Dim lw As Long 
      Dim lr As Long 
      lw = Range("A" &amp; Rows.Count).End(xlUp).Row 
      Range("A2:A" &amp; lw).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("H1"), Unique:=True 
  End Sub 
  
  Private Sub ComboBox1_Change() 
      Dim lr As Long 
      Dim Sel As String 
      lr = Range("H" &amp; Rows.Count).End(xlUp).Row 
      Sel = "H2:H" &amp; lr 
      ComboBox1.ListFillRange = Sel 
  End Sub 
  </code></pre>
  
  <p>I was able to populate comboBox1 with unique values from Column A, but I can't figure out how to filter it using the value of ComboBox1.
  Any help would be greatly appreciated.</p>