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