Макрос: дописать формулу в ячейку ексель - VBA

Формулировка задачи:

Добрый день. Прошу не судить строго, я только в начале пути. Что пытаюсь сделать: к формуле дописать фор-лу ЕСЛИОШИБКА. Т.е. если цикл в ячейки видит формулу, то он дописывает к ней формулу =ЕСЛИОШИБКА(фор-ла;0). Пока не получилось: выдает ошибку "applcation-defined or object-defined error" на строке "cell.Value = "=IFERROR(" & "TextFormula" & ";0)"" Как быть подскажите пожалуйста.

    For Each cell In Selection
    If cell.HasFormula Then TextFormula = cell.Formula
        a = Len(TextFormula) - 1
        TextFormula = Right(TextFormula, a)
        cell.Value = "=IFERROR(" & "TextFormula" & ";0)"
    Next cell
 
End Sub

Решение задачи: «Макрос: дописать формулу в ячейку ексель»

textual
                            Листинг программы 
                        

                            Sub Nuke()
Dim cell As Range
  For Each cell In Selection.SpecialCells(xlCellTypeFormulas)
    cell.Formula = "=IFERROR(" & Mid$(cell.Formula, 2) & ",0)"
  Next
End Sub
                        