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