hi
another way
since you didn't say, i assumed that your numbers would be in a column. i
chose column F for test purposes only. adjust to suit.
Sub changeit()
Dim r As Range
Dim lr As Long
lr = Cells(Rows.Count, "f").End(xlUp).Row
Set r = Range("F2:F" & lr)
For Each cell In r
'cell.Select 'not needed. test pruposes only.
cell.Value = "-" & Left(cell, Len(cell) - 1)
Next cell

End Sub

regards
FSt1
"cheri gemini" wrote:

When pasting data from our main frame, negative numbers have the - sign at
the end. I need a macro to edit the cell, backspace, home, - enter. Any
ideas?