Trying to save to csv or txt without applying "" to strings containing comma values

[Roxenham]

As the subject states I am trying to use VBA to save several sheets as separate csv files though when I do output files contain quotes around the strings

VBA -

Sub SaveSheetAsCSV()
Dim ws As Worksheet
Dim csvFile As String

For Each ws In Worksheets
ws.Copy
csvFile = "C:\Users\Richa\Desktop\New folder (2)\" & ws.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename:=csvFile, _
FileFormat:=xlCSV, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Next

End Sub

Input example :

Output example :

 

[Bedlam]

I'm no VBA expert but I presume you should concatenate the two fields to somewhere else and export to CSV

 

[Roxenham]

Thank you for the response unfortunately I am just getting the quotations around the entire string following a concatenate