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
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