[Συναρτήσεις] Αφαίρεση IFERROR από πολλά και διαφορετικά κελιά

[vasilis79]

Καλησπέρα σας.
Όπως λέει κ ο τίτλος του θέματος έχω διάφορα κελιά με την συνάρτηση IFERROR.
π.χ =IFERROR(POISSON.DIST(5;A1;FALSE);0)
Αυτήν την μορφή την έχουν αρκετά κελιά.Εγώ θέλω να αφαιρέσω το =IFERROR και να μείνει μόνο το =POISSON.DIST(5;A1;FALSE).
Για να γλυτώσω να τα κάνω όλα ένα-ένα υπάρχει κάποιος τρόπος να γίνουν όλα μαζεμένα ?
Ευχαριστώ εκ των προτέρων !

[Spirosgr]

Sub Delete_IFERs()
    Dim iRng As Range
    With ActiveSheet
        Set iRng = .Cells.Find("IFERROR", LookIn:=xlFormulas, lookat:=xlPart, MatchCase:=False)
        While Not iRng Is Nothing
            iRng.Formula = "=" & Mid(iRng.Formula, 10, InStrRev(iRng.Formula, ",") - 10)
            Set iRng = .Cells.FindNext(iRng)
        Wend
    End With
End Sub 

*Λειτουργεί στο Ενεργό φύλλο.
*Αν οι συναρτήσεις που περιέχουν την =IFERROR(), καταλήγουν σε σφάλμα,
το σφάλμα θα εμφανιστεί στο κελί (πχ διαίρεση με 0)