Save worksheet with specified range as CSV

[promsi]

I would like to take "Sheet1:A1:W{all rows used}" and save to csv file named "c:\output.csv"

 

[John_w]

Here's one way:

Sub SRcsv()

    Dim copySheet As Worksheet
    Dim newWorkbook As Workbook
    
    'Sheet whose columns A to W are to be saved in a .csv file
    
    Set copySheet = ActiveWorkbook.Sheets("Sheet1")
    
    'Create new workbook with one worksheet
    
    Set newWorkbook = Workbooks.Add(xlWBATWorksheet)

    'Copy columns A to W to new workbook
    
    copySheet.Columns("A:W").Copy newWorkbook.Sheets("Sheet1").Range("A1")
    
    'Save new workbook as CSV file
    
    newWorkbook.SaveAs "C:\output.csv", FileFormat:=xlCSV
    newWorkbook.Close False
    
End Sub