Small macro to convert value

[lapta301]

Hi all

I have a recurring need to convert a large number values that come in from another system and it would be helpful to be able to do this by way of a small macro.

What I would like if possible is for a macro to run on a range of cells selected by me at run time and then convert all of the values - negative values to positive and positive to negative.

I hope this makes sense and as ever any help would be very much appreciated.

 

[stumac]

if you multiply the value by -1 or deduct it from 0 then it will change from positive to negative/vice versa

Sub ChangeSign()
For Each c In Selection.Cells
    If IsNumeric(c.Value) Then
        c.Value = 0 - c.Value
    End If
Next c
End Sub

 

[lapta301]

Thanks stumac it works a treat much appreciated