excel macro to move minus sign

[steve1961]

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!

 

[Wolf]

This macro converts text with a minus at the end to a number
(I think it's from Bill Manville)

Sub FixNeg()
Dim C As Range
For Each C In ActiveSheet.UsedRange.SpecialCells(xlConstants, xlTextValues)
If Right(C.Value, 1) = "-" Then
If IsNumeric(Left(C.Value, Len(C.Value) - 1)) Then
If C.NumberFormat = "@" Then C.NumberFormat = "General"
C.Value = -CDbl(Left(C.Value, Len(C.Value) - 1))
End If
End If
Next
End Sub

Wolf

 

[Don Guillett]

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
(e-mail address removed)

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!