To change globally as you requested in first post.

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

Gord Dibben Excel MVP

On Thu, 29 Jan 2004 11:22:27 -0600, mikewild2000
wrote:

Ha ha clever man Frank.

Just the job

Thank you Sir.


---
Message posted from http://www.ExcelForum.com/