Macro to Export Sheet as CSV

[howard]

I have code to export a sheet as a csv

I will import one file at a time and selectb the macto to export sheet as a csv


I would like the csv filename to be be the same as the text in A6 followed by .csv for e.,g. WLTI.csv

I will import one file at a time , select the macro to export sheet as a csv and then import the next week

Your assistance in amending my code is most appreciated

 Sub Export_Imported_Sheet_As_CSV()

Application.DisplayAlerts = False

Dim Sht As Worksheet

Set Sht = Worksheets("Statement")

Sht.Copy

ActiveWorkbook.SaveAs Filename:="C:\extract\BRTI.CSV", FileFormat _

:=xlCSV

ActiveWorkbook.Close



Application.DisplayAlerts = True

end Sub

 

[howard]

Thanks Jimmypop


If you cannot get it right, not to Worry, as it works If I have the name I want to save file as on a cell in the activesheet as per your post #2

 

[Jimmypop]

Thanks Jimmypop


If you cannot get it right, not to Worry, as it works If I have the name I want to save file as on a cell in the activesheet as per your post #2

Thanks Jimmypop


If you cannot get it right, not to Worry, as it works If I have the name I want to save file as on a cell in the activesheet as per your post #2

Does the most recent one also not work?

 

[howard]

Thanks for the help. This works perfectly