Back

Note - this code will make the necessary changes to the cells you have selected prior to running the macro.

Sub PrettyUp()
' Written by Barrie Davidson
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

Copyright ^© 2001 by Barrie R. Davidson
Added November, 2001