Remove the negative sign

I currently have a macro that makes numbers negative in a selected range by simple making the value "-" & Cell.Value

Is there anyway to write something that would do the reverse of this, that is, remove the negative sign in each cell of the selected range?

Thanks