REMOVING WORKBOOK'S ALL FORMULAS

[FARAZ QURESHI]

I have a workbook consisting around 20 sheets. I want to copy all the same to
a new workbook with only values. Any shortcut how to remove all the formulas
instead of copy>paste special>values>ok on every sheet?

 

[Gary''s Student]

In the new workbook, do you want the formulas replaced by blanks or by the
values from the old workbook?

 

[FARAZ QURESHI]

It was stated I want values!

 

[Gary''s Student]

Forgive a Student's lack of attention. Perhaps this macro can be adapted to
meet your needs:

Sub Macro1()
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Owner\My
Documents\copy.xls"
For Each sh In Sheets
sh.Activate
Cells.Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Next
ActiveWorkbook.Save
End Sub