PlanMyTax

Sub DeleteAllObjects()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim obj As OLEObject
    
    For Each ws In ThisWorkbook.Worksheets
        
        'Delete Shapes
        For Each shp In ws.Shapes
            shp.Delete
        Next shp
        
        'Delete ActiveX Controls
        For Each obj In ws.OLEObjects
            obj.Delete
        Next obj
        
    Next ws
    
    MsgBox "All objects deleted.", vbInformation
End Sub

Sub RemoveConditionalFormatting()
    Dim ws As Worksheet
    Dim response As VbMsgBoxResult
    
    response = MsgBox("Remove ALL conditional formatting from aLL sheets?", vbYesNo + vbExclamation)
    
    If response = vbYes Then
        For Each ws In ThisWorkbook.Worksheets
            ws.Cells.FormatConditions.Delete
        Next ws
        MsgBox "Done.", vbInformation
    Else
        MsgBox "Operation cancelled.", vbInformation
    End If
End Sub