Noemi

If numbers are in Activecell column..........

Sub test()
Dim rcel As Range
Dim Rng As Range
Set Rng = Range(ActiveCell, Cells(Rows.Count, _
ActiveCell.Column).End(xlUp))
For Each rcel In Rng
If rcel.Value < "" And rcel.Value = 0 Then
rcel.Value = rcel.Value * -1
End If
Next rcel
End Sub


Gord Dibben Excel MVP

On Mon, 21 Nov 2005 21:16:02 -0800, "Noemi"
wrote:

Hi
I currently have a range of numbers which need to be change from a positive
into a negative however I am not aware of the cell reference as the rows can
be more or less.

Does anyone know how to change a range of numbers from a positive into a
negative using VBA.

I actually need the number to be negative not just the format.

Thanks
Noemi