Q:

macro that inverts numbers

I need some help figuring this out. I created a small script that changes a value in a cell into a positive if the number is negative and vice versa. For example if the value is 100 the script will change it to -100 or if it's -100 it changes to 100. I was able to make it work for one cell but now I would like to inplimented on a range of cells for example all cells from B33 to B50. Thanks in advance.
Sub Sing_Change()

If Range("E9") > 0 Then
    Range("E9") = -(Range("E9"))
    Else
    Range("E9") = Abs(Range("E9"))
End If

End Sub

A:

Very basic code to loop thru a specified range.
Sub test()

    Set myrange = Range("A1:A2") 'Set range here

    For Each cell In myrange
        'your code here e.g. cell.value = -cell.value or whatever
    Next cell

End Sub

