To convert the numbers in a given column into negative values

Hi guys,

I want to convert values of a particular column say "M", right from row no 21 to 25 into negative values from the positive values. Consider the values in these cells to be 10,20,30,40 and 50.The code written is:

Sub negative()
Range("m21").Activate
noofout = InputBox("How many times has the stock been issued?")
For Count = 1 To noofout
a = ActiveCell.Offset(Count - 1, 0).Value
ActiveCell.Value = 0
ActiveCell.Offset(Count - 1, 0).Value = 0 - a
Next Count
End Sub

I suppose the code is absolutely perfect. But still the first cell i.e "M21" gives the result "0" (Zero) instead of the negative value.
I tried a lot to find the bug/error in this code yet it has not been found. Please help me to locate it.

Thanks & Regards,
Mihir Manohar.

No need to loop

Put the value of H1 to -1 and run this code. You can change the cell address of H1 to your choice.

Please Login or Register  to view this content.

Please Login or Register  to view this content.