Invert range values and paste

[vbaNewby]

Hello everyone,

I am copying / pasting a range into a specific cell:

rng.Copy

 Range("A1").PasteSpecial Paste:=xlPasteValues, operation:=xlPasteSpecialOperationAdd

What I want to do is invert the values in my range after that. Or multiply the range by -1 to invert the values.

How can I accomplish this?

Thanks in advance.

 

[MrKowz]

Something like this?

Rng.Copy
 Range("A1").PasteSpecial Paste:=xlPasteValues, operation:=xlPasteSpecialOperationAdd
 Range("A1").Value = (-1) * Range("A1").Value

Or to do it all in one line:

 Range("A1").Value = (-1) * (Range("A1").Value + Rng.Value)

 

[vbaNewby]

Thanks MrKowz, I will give that a try.