title: Save a named sheet from one workbook to a new workbook in the same folder
body: <p>I would like to be able to</p>
  
  <ol>
  <li>take a sheet called "data" in a given workbook called
  "original_data.xlsm",</li>
  <li>copy it conditionally (using Autofilter or
      something else), say only those rows where column C was "dog"</li>
  <li>Create a new workbook, in the same folder as the original book, called dog.xlsm and save the copied stuff into
      a new sheet called "dog data".</li>
  <li>Then repeat with a different filter.So for example copy and
  autofilter if column C was "cat" and create a workbook "cat.xlsm",  in the same folder as the original book, with a sheet called "cat_data" containing some filtered data.</li>
  </ol>
  
  <p>I've been making incorrect attempts for three days now and would appreciate some help. Here is what I have done so far.</p>
  
  <pre><code>Workbooks.Add
  Set wb = ActiveWorkbook
  GetBook = ActiveWorkbook.Name
  wb.Sheets("data").SaveAs Workbooks(GetBook).Path &amp; "\dog" 
  
  Workbooks("dog.xlsx").Worksheets("Sheet1").UsedRange.AutoFilter Field:=3, Criteria1:="=dog"
  </code></pre>
  
  <p>But it's not working. :(</p>