If you don't have any array formulas in your worksheet then:

Sub Adjustformula()
Set rng = Cells.SpecialCells(xlFormulas)
For Each cell In rng
sForm = cell.Formula
' remove equal sign
sForm = Right(sForm, Len(sForm) - 1)
cell.Formula = "=IF(iserror(" & sForm & "),""""," & _
sForm & ")"
Next
End Sub


will adjust all your formulas to suppess error values.

If you have array formulas, then the macro would be a bit more complex.

--
Regards,
Tom Ogilvy





"Chris Sergent" wrote in message
...
I am so novice at programming in MS Excel.

However,
I have an Excel spreadsheet with a great deal of formulas
on it. Is there a way to either globally suppress errors
on an Excel spreadsheet. If not, what code could be
written to check the current spreadsheet for any cells
that produce an error, to show up as "" without actually
changing the formula that already exists. Because all of
the formulas are different, a find and replace will not
work.

I appreciate any help. Thanks.

Chris