Mark

Not sure what your problem is.

Do you have the ISERROR function already in your formulas but doesn't work
until you F2ENTER

This would indicate that the cells are formatted as text.

Format to General then select all and EditReplace

What: =

With: =

Replace all. This forces Excel to treat as a formula.

OR you need the ISERROR added to each formula?

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 Excel MVP

On Mon, 12 Dec 2005 13:09:05 -0800, "MarkD"
wrote:

I have 8,000 line of data to apply function to, it works but the data element
I am comparing has to be rekeyed into cell to make function work properly.