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