I am currently using the script below to copy values from one sheet t
another.

I am hoping to get all values copied to the destination sheet enclose
by quotation marks (eg "value1"), so that I can then save the sheet a
a .CSV file for a dataload.

Can anyone please suggest a modification to the sub below that would d
this?

Sub CSV()
Dim DestSheet As Worksheet, SrcSheet As Worksheet
Set SrcSheet = ActiveSheet
Set DestSheet = Sheet2
With SrcSheet
.Activate
Range(.Range("a3"), .Range("a3").End(xlDown)).Resize(,
34).Copy
End With
With DestSheet.Range("a1")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
End Sub


xl2000 on windows 2

--
Message posted from http://www.ExcelForum.com