VBA code to split sheets and save as seperate CSV files

Hi

Thanks for getting back to me.

I have already changed the file path to my own drive and it still does not appear to work?

Thanks again

Please post a copy of your workbook, I may be able to offer more help.

I took the above code and tweaked it a bit:

Sub SplitBookIntoSheets()
    Dim i As Integer
    Dim ws As Worksheet
    Dim CntSheets As Long
    Dim FileFolder As String
 
    FileFolder = InputBox("Where would you like these saved?", "filename", "C:\Temp\")
    For i = 1 To Worksheets.Count
            CntSheets = Worksheets.Count
            If CntSheets <> "1" Then
                Sheets(CntSheets).Move
                ActiveWorkbook.SaveAs FileName:=FileFolder & ActiveSheet.Name & ".csv", FileFormat:=xlCSV
                ActiveWindow.Close
            Else
                ActiveWorkbook.SaveAs FileName:=FileFolder & ActiveSheet.Name & ".csv", FileFormat:=xlCSV
                ActiveWindow.Close
            End If
        Next i
End Sub

You have to distinguish the final sheet, because you cannot move a sheet out of a document if it is the only sheet. This also resolves any issues on the naming of the tabs (the prior version required that the sheets be named "Sheet3").

I believe you weren't getting any error messages because the code suppressed those. I did not include those, because I need to know why something didn't do what I thought it would.
I hope this helps.
J