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

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

VBA is not required for this. Put -1 in an empty cell. Copy that cell.
Select the range of numbers whose sign you want to change. Edit|Paste
Special|Multiply.

Jerry

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