IFERROR VB formula

[Read_This]

I have a worksheet of cells which have existing formulas - depending on the formula, return a 'result' or an 'error'
I would like a VB formula so I can perform a one-off solution by inserting
=IFERROR(ExistingFormula),"")
..into each selected cell formula 'the blue text'.

-------------------

For example, I have VB code to insert an absolute reference into pre-selected cells:

Sub LockCells()
'
'LockCells Macro
'
Dim c As Range
For Each c In Selection
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute)
Next
End Sub

 

[Jonmo1]

Try

Sub test()
For Each c In Selection.SpecialCells(xlCellTypeFormulas)
    c.Formula = "=IFERROR(" & Right(c.Formula, Len(c.Formula) - 1) & ","""")"
Next c
End Sub

Be careful, it will not care if the formula is 'already' using the iferror(...,"") structure.
You'd end up with =IFERROR(IFERROR(...,""),"")

 

[Read_This]

Thank you for your prompt reply, your formula worked on the whole worksheet - I hadn't pre-selected any cells, would that be correct?

 

[Jonmo1]

You have to pre-select the range of cells to apply the changes to.
Just like the other macro you posted.

 

[Read_This]

Thank you, when I stated "I hadn't pre-selected any cells", I had inadvertantly selected one cell however, the macro corrected the whole worksheet.

When selecting multiple cells, the macro does however, perform as requested.

Many thanks, much appreciated!

 

[Jonmo1]

Glad to help, thanks for the feedback.