Convert all formulas to values

[MeisoT]

I would like to convert all formulas in a worksheet to values. The code below works for one specific range, but I need to cycle through all the ranges in the worksheet to convert the formulas to values.

Dim c As Range

For Each c In ThisWorkbook.Worksheets("Sheet 1").Range("B5")
If c.HasFormula Then
c = c.Value
End If
Next c

How do I cycle through all the ranges in the worksheet?

Excel version=2000

Thanks.

 

[earthandfire]

An easier way might be to use Paste Special. In the sheet press Ctrl+A, Ctrl+C and then from the Edit menu, select Paste Special and then select the Values option.

Hope this helps.

 

[MeisoT]

Thanks earthandfire. I was able to record your suggestion to get the VBA equivalent and it works great!

Thanks.