Select the column with the values having the minus sign following the number,
and run this code........

Sub ReverseMinus()
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng
If Right(cell, 1) = "-" Then
cell.Value = "-" & Mid(cell, Len(cell) - 1, 99)
End If
If Right(cell, 1) = "-" Then
cell.Value = Mid(cell, 1, Len(cell) - 1)
End If
Next
End Sub

Vaya con Dios,
Chuck, CABGx3



"Adam" wrote:



I copy data into excel from an accounts programme, but all the minus signs
are at the back so Excel won't add these numbers up

i.e 4
3-

Th answer comes to 4 rather than one , what can I do about this?

Thanks for your help Adam

I know you guys/girls know an answer