Hi,

I'm using the following code to enclose all values in a specific column
(Excel column 'CC') in a CSV file (obviously when opened in Excel).

Sub Test()
Dim RangeFirstColumn As Range
Dim i As Range
Set RangeFirstColumn = Range("CC2", Range("CC" &
Rows.Count).End(xlUp).Address)
For Each i In RangeFirstColumn
If Len(i.Value) > 0 Then i = Chr(34) & i.Value & Chr(34)
Next i
End Sub

The problem is, when I open up the resulting .csv in Notepad, the field
in question in each row is now enclosed in three quotation marks
instead of the expected one (e.g. """010""" rather than "010"). Could
anyone advise me of what changes I need to make to my code? Many thanks.