NateO (From Yesterday)

[Zac]

Had a chance to try your suggestion with the following;

Dim lastrow As Long, cell As Range
Dim UsedRng As Range, UsedCell As Range

lastrow = .Cells.SpecialCells(xlCellTypeLastCell).Row
For Each cell In Range("m2:m" & lastrow)
If cell.Offset(, -2).Value < 0 And cell.Value > 0 _
Then cell = -cell.Value
Next cell

I'm getting a Debug error which states
"Invalid or unqualified reference"
at (.Cells) which follows lastrow = .Cells


Any suggestions?

Zac

[Ivan F Moala]

On 2002-05-10 04:58, Zac wrote:
Had a chance to try your suggestion with the following;

Dim lastrow As Long, cell As Range
Dim UsedRng As Range, UsedCell As Range

lastrow = .Cells.SpecialCells(xlCellTypeLastCell).Row
For Each cell In Range("m2:m" & lastrow)
If cell.Offset(, -2).Value < 0 And cell.Value > 0 _
Then cell = -cell.Value
Next cell

I'm getting a Debug error which states
"Invalid or unqualified reference"
at (.Cells) which follows lastrow = .Cells


Any suggestions?

Zac

lastrow = .Cells.SpecialCells(xlCellTypeLastCell).Row


Should be
lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row

[Zac]

BINGO. That worked.

Thanks very much.