If you just want to export the file with quotes, see

http://www.mcgimpsey.com/excel/textf...#csvwithquotes

If you actually want to convert all your values and formulae to
quote-wrapped values:

Public Sub QuoteWrap()
Const q = """" 'double the double quotes
Dim ws As Worksheet
Dim rCell As Range
For Each ws In ActiveWorkbook.Worksheets
For Each rCell In ws.UsedRange
If Not IsEmpty(rCell) Then _
rCell.Value = q & rCell.Value & q
Next rCell
Next ws
End Sub


In article ,
"Phil" wrote:

Hello,

I have a situation where I have been told the only way to get my data to
work with Access is to take EVERY value (some 2,000) in each cell, and wrap a
double quote around ANY of the values that reside in the cell.

So the value 54712332 would need to look like "54712332".

How do I go about doing that?

TIA for your replies!

Phil.