How to save each row in an Excel table as an individual .CSV file

[EsJonesy]

I am currently trying to automate the process of saving each row in an Excel file as an individual .csv file. I was able to record the below code when doing it manually for 1 row and would like to automate this for all rows.

I'm hoping someone might be able to point me in the right direction.
Some issues I have:

• Each file needs to save as the File Name listed in Column A.
• When copying the data, I need it to ignore cells that are blank.
• When pasting into a new workbook, I need it to transpose without formatting.

<code style="margin: 0px; padding: 1px 5px; border: 0px; font-size: 13px; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; white-space: pre-wrap; background-color: rgb(239, 240, 241);">Sub CSVFile() Range("B2:EL2").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Sheets("Sheet2").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Delete Sheets("Sheet3").Select ActiveWindow.SelectedSheets.Delete ActiveWorkbook.SaveAs Filename:="C:\MGA\Datasets\Book3.csv", FileFormat:= _ xlCSV, CreateBackup:=False End Sub</code>