Clear All VBA Codes and formulas

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