Convert All Formulas To Values

Sub ConvertToValues()

‘ Replace formulas with values

iCount = Worksheets.Count
For i = 1 To iCount
If Worksheets(iCount – i + 1).Visible Then
Worksheets(iCount – i + 1).Select
iRowCount = ActiveCell.SpecialCells(xlLastCell).Row
iColCount = ActiveCell.SpecialCells(xlLastCell).Column
For j = 1 To iRowCount
For k = 1 To iColCount
Worksheets(iCount – i + 1).Cells(j, k) = Worksheets(iCount – i + 1).Cells(j, k).Value
Next k
Next j
End If
Next i
End Sub