VBA code help to save exported file using the information in a cell

[STIRRELL]

Hi,
I am not sure how to do this. I have code that is exporting a spreadsheet as a CSV file, but I would like to name the file based on information in Cell J2 on a spreadsheet within the workbook called Int_Check. Can you please help me modify the code to rename the exported file. I would like if possible the spreadsheet to stay "20" in the file. But if that is difficult I can work around this.

Thank you so much for your help


Dim csvFile As String
Dim wsName As Variant
'Dim OutApp As Object, OutMail As Object

Sheets("20").Activate

wsName = ActiveSheet.Name
csvFile = ThisWorkbook.Path & "\" & wsName & ".csv"
ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs csvFile, FileFormat:=xlCSV
ActiveWorkbook.Close False

 

[kevin9999]

Try this

Sub Save_20()
    Dim FileName As String
    FileName = Worksheets("Int_Check").Range("J2").Value
    Worksheets("20").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & FileName & ".csv", FileFormat:=6
    ActiveSheet.Name = "20"
End Sub

 

[Alex Blakenburg]

I would like if possible the spreadsheet to stay "20" in the file.

A csv file doesn't have the concept of sheets. When you open it in Excel it will always appear as a spreadsheet with 1 sheet and that sheet name will be the filename.

 

[STIRRELL]

A csv file doesn't have the concept of sheets. When you open it in Excel it will always appear as a spreadsheet with 1 sheet and that sheet name will be the filenam

Try this

Sub Save_20()
    Dim FileName As String
    FileName = Worksheets("Int_Check").Range("J2").Value
    Worksheets("20").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & FileName & ".csv", FileFormat:=6
    ActiveSheet.Name = "20"
End Sub

 

[STIRRELL]

Try this

Sub Save_20()
    Dim FileName As String
    FileName = Worksheets("Int_Check").Range("J2").Value
    Worksheets("20").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & FileName & ".csv", FileFormat:=6
    ActiveSheet.Name = "20"
End Sub

Thank you that worked perfectly

 

[kevin9999]

Thank you that worked perfectly

You're welcome and thanks for the feedback ?