Macro to multiply by -1

[rollers5]

I need a macro that will multiply the selected column by -1 (this will change negative numbers to positive and vice versa).

 

[VoG]

Try

Sub atest()
Selection.Value = Evaluate(Selection.Address & "*-1")
End Sub