Hello,
I've got following problem. I'm trying to save selection from one workbook to new workbook and save it in csv format, I'am using this formula:
Dim wbkNew As Workbook
Dim strMyDocs As String
strMyDocs = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Set wbkNew = Workbooks.Add
With wbkNew
.Worksheets(1).Range("A1").PasteSpecial Paste:=xlFormulas
.SaveAs Filename:=strMyDocs & "\file.csv", _
FileFormat:=xlCSV
.Close (False)
End With
I'm trying to copy cell containing lets say:
but this function spreads it to separate columns and deletes ";", how can I avoid it? And have it in one cell?
Thanks in advance for help!
Bookmarks