Alle Formeln mit Wenn (IstFehler) erweitern

Eine komplexe Tabelle beinhaltet viele Formeln.
Alle Formeln sollen nun ergänzt werden mit =Wenn(Istfehler...
Im Falle eines Fehlers sollen 3 Sternchen angezeigt werden.
 
Sub MachWas()
    Set FormulaCells = ActiveSheet.UsedRange.SpecialCells(xlFormulas, 23)
    For Each Zelle In FormulaCells
        f = Zelle.FormulaR1C1
        If InStr(f, "ISERROR") = 0 Then
            Formel = Mid(f, 2, Len(f))
            Zelle.FormulaR1C1 = "=IF(ISERROR(" & Formel & "), _
               ""***""," & Formel & ")"
        End If
    Next Zelle
    For Each Zelle In ActiveSheet.UsedRange
        If Not Zelle.HasFormula And Zelle.Text <> "" And Zelle.Value <> 0 Then _
            Zelle.NumberFormat = "**"
    Next Zelle
End Sub