DeleteAllFormulas Excel

Sub DeleteAllFormulas()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        On Error Resume Next
        ws.UsedRange.SpecialCells(xlCellTypeFormulas).ClearContents
        On Error GoTo 0
    Next ws

    MsgBox "All formulas have been deleted from all worksheets.", vbInformation

End Sub