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