Mike,
Thanks for this simple trick. I was doing this the long way - Inseret
a column, multiply by -1, then copy and paste values. It worked but
some time it shows more digits than I care for.
Hope this helps.....
Sub DelNegative()
For X = 1 To 1
Dim redRng As Range
Set redRng = Range("A1", Range("A100").End(xlUp))
For Each cell In redRng
If cell.Value <= 0 Then
cell.Value = Abs(cell)
End If
Next cell
Next X
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.