Public Sub Formulatovalues()
Dim rng As Range
Application.Calculation = xlCalculationManual
On Error Resume Next
For Each rng In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
rng.Value = rng.Value
Next rng
On Error GoTo 0
Application.Calculation = xlCalculationAutomatic
Application.CalculateFull
End Sub