title: Parse through excel workbooks and save specific tabs as .csv files
body: <p>I need help saving specific tabs from excel workbooks as 1) csv files, and 2) files named after the file from which they originate. </p>
  
  <p>So far I have this which works in taking out the right tab from a single workbook and saving it as a .csv file. </p>
  
  <pre><code>Sub Sheet_SaveAs()
   Dim wb As Workbook
   Sheets("SheetName").Copy      
   Set wb = ActiveWorkbook      
   With wb
     .SaveAs ThisWorkbook.Path &amp; "\SheetName.csv"
     '.Close False
   End With
  End Sub
  </code></pre>
  
  <p>How do I rename "SheetName" so that the file saves as, for example, Workbook1SheetName, Workbook2SheetName etc.?</p>
  
  <p>I want to loop this function through a folder of many, many excel files, so unique names are necessary for the new .csv files. </p>
  
  <p>I found this online which shows how to use a VBA loop, <a href="http://www.ozgrid.com/VBA/loop-through.htm" rel="nofollow">http://www.ozgrid.com/VBA/loop-through.htm</a>. In theory it should work with my code above as long as each .csv file can have a unique name. Correct me if I am wrong. </p>
  
  <p>Thanks for the help.</p>