title: I want to create a message box to enter in the cell data that I want to filter by
body: <p>I am looking to filter by certain names, for example, JHILL2. I would like a message box to pop up where I can enter in JHILL2 and then filter in a certain column by that.</p>
  
  <p>I currently have code which is just for JHILL2 but would like to have the option box to change the name each time I run the macro</p>
  
  <pre><code>Sub filter_jhill2()
  
      Set ws = Worksheets("modified_report")
  
      Application.ScreenUpdating = False
  
      'Sheets("modified_report").Select
  
      'Selection.AutoFilter
      Worksheets("modified_report").Range("A1").AutoFilter Field:=6, Criteria1:="JHILL2"
  
  End Sub
  </code></pre>