I'm working in xl2010, and have a workbook with ~70 sheets. I'd like to save the sheets as individual .csvs, each with the name of the sheet. I tried using the following code:
Option Explicit
Sub SaveShtsAsBook()
Dim Sheet As Worksheet, SheetName$, MyFilePath$, N&
MyFilePath$ =...