Export worksheet as csv using VBA without renaming the original XLSM file

[simondb]

Hi,

I'm looking to export a worksheet as a csv using VBA code, but do not want to save or rename my original file. I can save the file with this code but I only want to export the data in Sheet1

ActiveWorkbook.SaveAs Filename:="D:\PORTFOLIO.csv", FileFormat:=xlCSV, CreateBackup:=False

Help please and thank you

 

[John_w]

Welcome to MrExcel forums.

Try this:

    Worksheets("Sheet1").Copy
    ActiveWorkbook.SaveAs Filename:="D:\PORTFOLIO.csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close False

 

[simondb]

Thank you, got a work around using this