Sub moveminustofront()
For Each c In Selection
If Right(c, 1) = "-" Then
c.Value = "-" & Left(c, Len(c) - 1)
End If
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tracytracy123" wrote in message
...
Our system reports unfortunately have negative signs in back of numbers
instead of in front. When we export them to Excel, the negative numbers
seem
to be ignored in totals and we are manually moving the negative signs from
back to front to get our totals correct. Is there a way to do this
faster?