BUY EXCEL BOOKS ONLINE: 1. VBA & Macros      2. VBA for Modelers      3. Excel 2013 VBA and Macros     
4. Excel VBA for Dummies      5. Excel with VBA & .NET      6. Mastering VBA      7. Excel 2013 Programming

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.PasteSpecial(Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, _
                                SkipBlanks:=False, Transpose:=False)
    End Sub