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