Macro to export sheet as CSV

[Howardc]

I have a sheet on a workbook called "Upload"

I would like to set up a macro to export this sheet as a CSV file to a directory called "temp" and to save the exported sheet as "Journal Upload". I have values in Col A:F and the maximum number of rows that will be used is 500

Your assistance in this regard will be most appreciated

[Admin]

Hi

Try


Sub kTest()

Dim Sht As Worksheet

Set Sht = Worksheets("Upload")

Sht.Copy
ActiveWorkbook.SaveAs "C:\Temp\Journal Upload.CSV", 6
ActiveWorkbook.Close 0

End Sub

[Howardc]

Thanks for the help, much appreciated