Reversing the signs of selected cells - help neededddd

Select the cell(s) then run the code

Sub test()
    Dim r As Range
    For Each r In Selection
        r.Value = Val(r.Value) * -1
    Next
End Sub