Customising Export From XLS to CSV

G

Guest

How do I go about adding Double quotes around each field in excel?
At the moment it is exporting data like this
Title,Name,Surname,etc

I would like it to export like this
"Title","Name","Surname","etc

Thanks
 
J

Jason Morin

Select the desired cells and run this macro:

Sub AddQuotes()
Dim cell As Range
For Each cell In Selection
With cell
.Value = Chr(148) & .Value & Chr(148)
End With
Next
End Sub
 
Top