This subrountine will make the needed corrections
Sub tryme()
For Each mycell In Selection
If Right(mycell, 1) = "-" Then
If Left(mycell, 1) = "$" Then
x = Val(Mid(mycell, 2, Len(mycell)))
x = -x
mycell.Value = FormatCurrency(x, 2)
Else
x = Val(mycell)
mycell.Value = -x
End If
End If
Next

best wsihes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"jpriddy" wrote in message
...
I have a report uploaded to excel from a particular program used here at
work. In that program, negative numbers have the format of $###.00-, with
the minus sign at the end instead of the beginning. When the data comes
over
to Excel the minus sign is still at the end of the number. I have been
manually moving the minus signs to the beginning in each cell which is
very
time consuming. Is there a formula I can use in the Cell, Column and/or
Worksheet containing these numbers to globally change them at once?