software

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.

Mark

Not sure what your problem is.

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

This would indicate that the cells are formatted as text.

Format to General then select all and Editgt;Replace

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 quot;=IF(ISERROR*quot; Then
myStr = Right(cel.Formula, Len(cel.Formula) - 1)
cel.Value = quot;=IF(ISERROR(quot; amp; myStr amp; quot;),quot;quot;quot;quot;,quot; amp; myStr amp; quot;)quot;
End If
End If
Next
End SubGord Dibben Excel MVP

On Mon, 12 Dec 2005 13:09:05 -0800, quot;MarkDquot; gt;
wrote:

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