Does this simple code help?

Sub removequotes()

Cells.Replace _
What:=Chr(34) & Chr(34), Replacement:="", lookat:=xlWhole
End Sub

"me" wrote:

thank you for your quick reply. Let me explain the problem more clearly.

There are several worksheets which gets filtered out bunch of calculated
data from several other. Basicly each worksheet gets data from main data
worksheet with certain categories. (such as Product Name and Date Range).

Then a macro runs and selects each product worksheets and saves as comma
separated "product-name-mmddyy.txt" Since each worksheet pages covers 1400
rows, each row has formula and results of those formula mostly are ' "" '.
Only the first 10-100 row has values.

Saving each pages manually and then deleting unnecessary part of data is
time consuming especially when I am trying to do this every day.

So What I want to do is
either, selecting the last result value row number which is different than '
"" ' and selecting this range and saving this range as a csv file using VB.

or

deleting the area which results are "", then save the files as csv using VB

or some other way that currently I can not think of.

I really appreciate any helps. Thanks



Best Regards

"Joel" wrote:

Why do you edit the file with notepad and delete the blank lines. If it is
only one worksheet it doesn't pay to write code to fix a one time problem.

"Bill Renaud" wrote:

If you have done lots of editing, running of macros, etc. on the active
worksheet, then its UsedRange property will still include a lot of "empty"
cells that will be eliminated after the workbook is saved.

Try copying only the cells that still have data that you want to export to
the CSV file to a new worksheet in a new workbook, then saving.

--
Regards,
Bill Renaud