Converting formulas to numbers

[hunsnowboard]

Hi there Everyone! I have a workbook with many (20-30) worksheets and many numbers and formulas in different cellls (different rows and columns). Is there a code which could convert all the formulas in the workbook (on all worksheets) to numbers? It would take me a lot to copy and paste speciall all the workbooks...
Thank you in advance for your help!

[Simon Lloyd]

Try this in a standard module (AltF11+I+M)
[VBA]Sub No_Formulas()
Dim Sh As Worksheet
For Each Sh In Sheets
Sh.UsedRange.Value = Sh.UsedRange.Value
Next Sh
End Sub
[/VBA]

[AMontes]

Another one:
[VBA]
Sub Formula_Zapper()
Worksheets.Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Select
Application.CutCopyMode = False
End Sub

[/VBA]