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

Change Polarity or Number Sign

    Sub Change_Number_Sign()
        'This module will change the sign of numbers i.e. (positive to negative) and (negative to positive).
        Dim MyCell As Range
        For Each MyCell In Selection.Cells
            If Not (IsEmpty(MyCell.Value)) And IsNumeric(MyCell.Value) Then
                MyCell.Value = MyCell.Value * (-1)
            End If
        Next
    End Sub