Convert Workbook (to text)
 

Greetings:
Have workbooks with 6 - 8 worksheets.
Need to convert all "used" cells to text
ie: no formulas, or vba left over
(like RDB does with his SendMail add-in)
After this is done, i will have to do all kinds of hiding, deletions,
etc. but the convert have to be done first, so I don't loose info due
to the deletions.
The end result will be in a format that is e-mailed in .xls format
and will look the same as the actually hard copy.
thanks

Convert Workbook (to text)
 

Sub MakeText()
for each sh in ActiveWorkbook.worksheets
sh.UsedRange.copy
sh.UsedRange.PasteSpecial xlValues
Next
End Sub

If you want to remove code see Chip Pearson's site
http://www.cpearson.com/excel/vbe.htm

--
Regards,
Tom Ogilvy



"BEEJAY" wrote:

Greetings:
Have workbooks with 6 - 8 worksheets.
Need to convert all "used" cells to text
ie: no formulas, or vba left over
(like RDB does with his SendMail add-in)
After this is done, i will have to do all kinds of hiding, deletions,
etc. but the convert have to be done first, so I don't loose info due
to the deletions.
The end result will be in a format that is e-mailed in .xls format
and will look the same as the actually hard copy.
thanks

Convert Workbook (to text)
 

Thanks, Tom.
Short and sweet, as always.


"Tom Ogilvy" wrote:

Sub MakeText()
for each sh in ActiveWorkbook.worksheets
sh.UsedRange.copy
sh.UsedRange.PasteSpecial xlValues
Next
End Sub

If you want to remove code see Chip Pearson's site
http://www.cpearson.com/excel/vbe.htm

--
Regards,
Tom Ogilvy



"BEEJAY" wrote:

Greetings:
Have workbooks with 6 - 8 worksheets.
Need to convert all "used" cells to text
ie: no formulas, or vba left over
(like RDB does with his SendMail add-in)
After this is done, i will have to do all kinds of hiding, deletions,
etc. but the convert have to be done first, so I don't loose info due
to the deletions.
The end result will be in a format that is e-mailed in .xls format
and will look the same as the actually hard copy.
thanks