Sub removeNegativeSign() Dim rng As Range Selection.Value = Selection.Value For Each rng In Selection If WorksheetFunction.IsNumber(rng) Then rng.Value = Abs(rng) End If Next rng
Remove Negative Signs with VBA Macro CODE
This code will simply check all the cell in the selection and convert all the negative numbers into positive. Just select a range and run this code.