Macro to export sheet as CSV

[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