This is only for cells containing data, not formulae:

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

--
Gary''s Student - gsnu2007


"bodhisatvaofboogie" wrote:

Range("A1").Select
Cells.REPLACE What:="1-", Replacement:="-1", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True

I want to use this formula to replace ALL cells where the "-" symbol is on
the right by moving it to the left in front of the number.

This formula works great, but only for cells with "1-"...if the number is
any different I'd have to set it up for every possible number which would be
a rediculously long macro. Any ideas on how I can modify this? THANKS!!!