Convert Formulas to Values

    Sub Convert_Formulas_to_Values()
        ' This module will replace formulas of selected cells with their corresponding values.
        Dim MyCell As Range
        For Each MyCell In Selection.Cells
            MyCell.Copy
            MyCell.PasteSpecial(Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, _
                                SkipBlanks:=False, Transpose:=False)
        Next
    End Sub