Convert Workbook (to text)

[Guest]

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

 

[Guest]

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

 

[Guest]

Thanks, Tom.
Short and sweet, as always.

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