Hi All,

Does anyone know which statement to use for changing a range of
positive numbers (say range("A1:A10") into negative?

Thanks again!

Rgds,
Robert

Hi Robert

Maybe:

Set rng = Range("A1:A10")
rng.Value = Evaluate(rng.Address & "*-1")

Hope this helps!

Richard

On 14 Feb, 13:39, "Robert" wrote:
Hi All,

Does anyone know which statement to use for changing a range of
positive numbers (say range("A1:A10") into negative?

Thanks again!

Rgds,
Robert

try
Sub changepostoneg()
For Each c In Range("a1:a10")
If c 0 Then c.Value = -c
Next
End Sub


--
Don Guillett
SalesAid Software

"Robert" wrote in message
oups.com...
Hi All,

Does anyone know which statement to use for changing a range of
positive numbers (say range("A1:A10") into negative?

Thanks again!

Rgds,
Robert

One more - manually (or record macro)

copy a cell containing -1
select cells to be negated
PasteSpecial multiply

Regards,
Peter T

"Robert" wrote in message
oups.com...
Hi All,

Does anyone know which statement to use for changing a range of
positive numbers (say range("A1:A10") into negative?

Thanks again!

Rgds,
Robert

Sub PositivetoNegative()
Range("A1").Activate
Do
If Left(Activecell,1) < "-" then
Activecell = Activecell*-1
End If
Activecell.Offset(1,0).Activate
Loop until Activecell = ""
End Sub
--
Best wishes,

Jim


"Robert" wrote:

Hi All,

Does anyone know which statement to use for changing a range of
positive numbers (say range("A1:A10") into negative?

Thanks again!

Rgds,
Robert