VBA Macro To Create An Excel File With Same Sheet Name As Workbook Name

[DocAElstein]

Hi Flupsi,
I am not sure if I quite understand your question?

Your original Code saves as Adjustment JNL.csv

In your original code the following line
.Sheets(1).Name = "JNL"
changes the first Worksheet name.

So if you do not want that change to happen, then simply remove that code line

 Sub CreateCSVFile()
Dim MyPath As String
Dim MyFileName As String
'The path and file names:
MyPath = "C:\Journal Templates"
MyFileName = "Adjustment JNL.csv"

    If Not Right(MyPath, 1) = "" Then MyPath = MyPath & ""
    
With ActiveWorkbook

    .SaveAs Filename:= _
        MyPath & MyFileName, _
        FileFormat:=xlCSV, _
        CreateBackup:=False
    
    .Close False
End With 
End Sub

Alan