title: Autofilter based on combo box value?
body: <p>I want to place a combo box above an "Issue Status" column to filter the whole sheet based on the value selected from this column.  Ideally, the combo box would have three options--"Open", "Closed", and "Any".</p>
  
  <p>How can I go about doing this?</p>
  
  <p>I tried the following code:</p>
  
  <pre><code>Private Sub ComboBox1_Change()
      Dim sFilter As String
      sFilter = ActiveSheet.DropDowns(Application.Caller).List(ActiveSheet.DropDowns(Application.Caller).Value)
      On Error Resume Next
      ActiveSheet.AutoFilterMode = False
      ActiveSheet.UsedRange.AutoFilter 1, sFilter
  End Sub
  </code></pre>
  
  <p>However, this is throwing an error:  <code>Run-time error 1004:  Unable to get the DropDowns property of the worksheet class.</code></p>
  
  <p>Also, it is listing values several times in the combo box.  For example, index 1 of the combo box = "Open", index 2 also = "Open", etc.  I want to only display distinct values and filter based on that.</p>
  
  <p>Is there a better approach to this?  What am I doing wrong?</p>