Think you might like this macro. Slect the cell or cells you want to apply it to and it converts any formulas within them so that DIV/0 or other error messages will not show:
Sub IFISERROR()
'
' IFISERROR Macro
' Macro recorded 11/7/01 by Ludovico
'
Dim FormulaChanged As String
For Each cell In Selection
FormulaChanged = Mid(cell.Formula, 2)
FormulaChanged = "=IF(ISERROR(" & FormulaChanged & "),""""," & FormulaChanged & _
")"
cell.Formula = FormulaChanged
Next cell
End Sub
This message was edited by Ludovico on 2002-04-17 12:41