Changing the value

hello
try

Sub changetopostive()
ActiveCell.Value = IIf(ActiveCell.Value < 0, ActiveCell.Value * -1, ActiveCell.Value)
End Sub

if the values are in a range you will be able to loop through them all
if you have trouble let me know what the range is
hope it help