Clear All VBA Codes and formulas

Sub All_Formulas_To_Values_In_All_Sheets()
    Dim wsSh As Worksheet
    For Each wsSh In Sheets
        wsSh.UsedRange.Value = wsSh.UsedRange.Value
    Next wsSh
End Sub

And delete macro without reference to Extensibility 5.3 library:

Sub DeleteAllVBACode()
        Dim VBProj As Object
        Dim VBComp As Object
        Dim CodeMod As Object
        
        Set VBProj = ActiveWorkbook.VBProject
        
        For Each VBComp In VBProj.VBComponents
            If VBComp.Type = 100 Then
                Set CodeMod = VBComp.CodeModule
                With CodeMod
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp
End Sub

Also in Excel 2007 and higher you may save workbook as .xlsx. All macroses will be del

Also, there's a modification to the code to also work on hidden sheets:

Option Explicit 
 
Sub Formula_Zapper_MkII() 
     
    Dim sh As Worksheet, HidShts As New Collection 
    For Each sh In ActiveWorkbook.Worksheets 
        If Not sh.Visible Then 
            HidShts.Add sh 
            sh.Visible = xlSheetVisible 
        End If 
    Next sh 
     
    Worksheets.Select 
    Cells.Select 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlPasteValues 
    ActiveSheet.Select 
    Application.CutCopyMode = False 
     
    For Each sh In HidShts 
         '        sh.Delete
        sh.Visible = xlSheetHidden 
    Next sh 
     
End Sub