Sample code for adding to existing formulas.

Perhaps you can addapt or post back with some details.

Sub ErrorTrapAdd()
Dim myStr As String
Dim cel As Range
For Each cel In Selection
If cel.HasFormula = True Then
If Not cel.Formula Like "=IF(ISERROR*" Then
myStr = Right(cel.Formula, Len(cel.Formula) - 1)
cel.Value = "=IF(ISERROR(" & myStr & "),""""," & myStr & ")"
End If
End If
Next
End Sub


Gord Dibben MS Excel MVP


On Sun, 1 Nov 2009 23:10:01 -0800, Indigo-JDJ
wrote:

I have put together financial statements in a work book. Now, i would like
to enter a logical / if then, segment to my equations but i dont want to go
into each individual cell in the page, is there a way to do this for many or
all cells at once? Or do i literally have to go into each cell and paste in
the if then portion. All cells will be dependent on 1 of 3 drop down list
choices.

Would love some help onthis one.
Thanks!