Macro to Convert formulas to Values - Speed

[qwertyyy]

Is this macro to convert formulas to values the quickest way to go about it.

Sub ConvertFormulasIntoValues()

Application.ScreenUpdating = False
Sheets("Sheet1").Select
Dim rng As Range
Dim formulaCell As Range
Set rng = Range("D9:D9000")

'Check each cell in the range if it has a formula
For Each formulaCell In rng
If formulaCell.HasFormula Then
formulaCell.Formula = formulaCell.Value
End If
Next formulaCell
Application.ScreenUpdating = True

End Sub

[jindon]

Please Login or Register  to view this content.

[qwertyyy]

Thanks but it only needed cells with formulas converted to Values , I tried it and it puts Zeros in all the empty cells which i don't need.

[jindon]

I tried it and it puts Zeros in all the empty cells which i don't need.

Upload your workbook that puts "Zeros".