Sub MoveMinus()
On Error Resume Next
Dim cel As Range
Dim myVar As Range
Set myVar = Selection
For Each cel In myVar
If Right((Trim(cel)), 1) = "-" Then
cel.Value = cel.Value * 1
End If
Next
End Sub