Hi!
I am trying to find all the formulas in a workbook and replace them with "values"?
Any help would be great!!
Thanks for your time!
Hi!
I am trying to find all the formulas in a workbook and replace them with "values"?
Any help would be great!!
Thanks for your time!
Sub ConverFormulasToValues()
Dim sh As Worksheet
Dim c As Range
For Each sh In Worksheets
Set rng = sh.Cells.SpecialCells(xlCellTypeFormulas)
For Each c In rng
c.Value = c.Value
Next
Set rng = Nothing
Next
End Sub
HTH
Myles
...constantly looking for the smoother pebble while the whole ocean of truth lies before me.
Thank You: Myles
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks