Multiply selection in a range

[Deuce Bucksman]

Hello!
The code below is missing a very important step: I'm trying to multiply a range of values on the activesheet by 1 based on the users selection. So, if I were to go to the activesheet, highlight the cells, and then run the macro, the selected cells would multiply by -1. Any guidance on what I missed would be greatly appreciated. Thanks!


Sub macrotest()

Dim selectrange As Range
Set selectrange = Selection

selectrange = ActiveCell.Value
For Each cell In selectrange
selectrange = selectrange * -1
Next cell

End Sub

 

[Jonmo1]

that would be like this

For Each cell In selectrange
cell = cell * -1
Next cell

 

[lenze]

Dim cl as Range
For Each cl in Selection
  cl = cl*-1
Next cl

lenze

 

[VoG]

Try

Sub macrotest()
Dim c As Range
For Each c In Selection
    c.Value = -c.Value
Next c
End Sub

 

[Deuce Bucksman]

Thanks! Works perfectly. I really appreciate your assistance!