try this instead
Sub move_minus_left()
For Each c In Selection
If Right(c, 1) = "-" Then _
c.Value = "-" & Left(c, (Len(c) - 1))
Next
End Sub

--
Don Guillett
SalesAid Software

"steve1961" wrote in message
...
I am importing numbers that has the minus sign to the right of the number.
I
need a macro that can move the minus sign to the right of the number. I
used
to have one but must have copied in incorrectly. What I has so far is..
Sub move_minus_left()
Dim currentcell As Object
For Each currentcell In Selection
If Right (currentcell.Value, 1)="-" Then
currentcell.formula="-"&left.

I really really need help with this as soon as possible. Thank you Very
Much!