PDA

View Full Version : Converting formulas to numbers



hunsnowboard
10-18-2010, 10:52 AM
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
10-18-2010, 11:35 AM
Try this in a standard module (AltF11+I+M)
Sub No_Formulas()
Dim Sh As Worksheet
For Each Sh In Sheets
Sh.UsedRange.Value = Sh.UsedRange.Value
Next Sh
End Sub

AMontes
10-19-2010, 05:33 PM
Another one:

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