Save workbook with multiple sheets as csv file and xlsx file

Hi,

I have a xlsm workbook with 3 worksheets. I've recorded a macro that formats the data in these sheets. I want the file to then be saved as a csv file (which IT picks up to load into an application) and an xlsx file for my records.

How can I save the data in the 3 worksheets as seperate csv files?
How do I save the xlsx file with 3 worksheets in it?
All the column headers are the same. The number of rows having data differs in each sheets.

Thanks,

This should get you close, I'm sure you'll want to tweak a bit here and there:

Option Explicit

Sub SheetsToCSV()
'Jerry Beaucaire (1/25/2010)
'Save each sheet to an individual CSV file
'Also save a copy of the workbook without macros
Dim ws As Worksheet, OldDir As String

ThisWorkbook.Save   'saves the file in existing format w/macros

Application.DisplayAlerts = False
OldDir = CurDir       'memorizes the user's current working path
ChDir "C:\2010\"      'path to save into

    For Each ws In Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name & "-" & _
            Format(Date, "DD-MM-YYYY") & ".csv", FileFormat:=xlCSV, CreateBackup:=False
        ActiveWorkbook.Close
    Next ws

    ThisWorkbook.SaveAs Filename:="MyfileNoMacro", FileFormat:=51
    
ChDir OldDir         'restores user's original working path
Application.DisplayAlerts = True
End Sub

Adapted from my macro source here.