title: VBA Saving single sheet as CSV (not whole workbook)
body: <p>I appreciate there are lots of entries like <a href="https://stackoverflow.com/questions/7331624/save-individual-excel-sheets-as-csv">save individual excel sheets as csv</a>
  and <a href="https://stackoverflow.com/questions/8434994/export-each-sheet-to-a-separate-csv-file">Export each sheet to a separate csv file</a> - But I want to save a <strong>single worksheet</strong> in a workbook. </p>
  
  <p>My code in my xlsm file has a params and data sheet. I create a worksheet copy of the data with pasted values and then want to save it as csv. Currently my whole workbook changes name and becomes a csv.</p>
  
  <p><strong>How do I "save as csv" a single sheet in an Excel workbook?</strong></p>
  
  <p>Is there a <code>Worksheet.SaveAs</code> or do I have to move my data sheet to another workbook and save it that way?</p>
  
  <p><strong>CODE SAMPLE</strong></p>
  
  <pre><code>' [Sample so some DIMs and parameters passed in left out] 
  Dim s1 as Worksheet
  Dim s2 as Worksheet
  
  Set s1 = ThisWorkbook.Sheets(strSourceSheet)
  ' copy across
  s1.Range(s1.Cells(1, 1), s1.Cells(lastrow, lastcol)).Copy
  
  ' Create new empty worksheet for holding values
  Set s2 = Worksheets.Add
  
  s2.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  
  ' save sheet
  s2.Activate
  strFullname = strPath &amp; strFilename
  
  
  ' &gt;&gt;&gt; BIT THAT NEEDS FIXIN'
  s2.SaveAs Filename:=strFullname, _
       FileFormat:=xlCSV, CreateBackup:=True
  
  ' Can I do Worksheets.SaveAs?
  </code></pre>
  
  <p>Using Windows 10 and Office 365</p>